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IDENTIFICATION 


PRODUCT CODE: MAINDEC-11-DZBMD-H-D 


PRODUCT NAME: M873 - UNIVERSAL RESTART ROM LOADER 


DATE RELEASED: JANUARY 1977 


MAINTAINER: DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS ad TO sane WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH A LICENS 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL 


COPYRIGHT (C) 1973,1977 DIGITAL EQUIPMENT CORPORATION 
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2.2 


ABSTRACT 


THIS MAINDEC CONSISTS OF FOUR PROGRAMS. THE TWO MAIN PROGRAMS 
BRE PROGRAN ONE AND PROGRAM FOUR. THESE PROGRAMS WILL 
THE PURPOSE OF THIS DIAGNOSTIC IS TO VERIFY THE DATA IN 
THE ROM DRESS WILL CAUSE A TIME OUT TRAP 
WHEN WRITTEN INTO (EXCEPT THE TRAP VECTORS: 173024 l7aee4) 
D ALERT THE OPERATOR AS TO WHAT THE OFFSET ADDRESS 
WOULD BE IF A SELECTED BUTTON IS PUSHED. 


NOTE: FOR NORMAL oe en es THE ONLY PROGRAMS 
NECESSARY FOR ACCEPTAN "7 OF THE BM873 AR OGRAMS 

ONE AND FOUR. PROGRAM TWO IS NECESSARY FOR “NON-STANDARD” 
ETUPS AND IS A MAINTAINCE TOOL. PROGRAM THREE IS 

ALSO JUST FOR MAINTAINCE AID. 


REQUIRMENTS 
EQUIPMENT 


ANY POP-11740 CPU 
UNIVERSAL RESTART to 
TELETYPE OR EQUIVALENT 

AT LEAST 4K OF MEMORY. 


STORAGE 


THIS PROGRAM RESERVES THE RIGHT TO USE ALL 
OF THE FIRST 4K EXCEPT WHERE BOOTSTRAP LOADER 
AND ABSOLUTE LOADER RESIDE. 


LOADING PROCEDURE 


THE PROGRAM MAY BE LOADED LIKE ANY OTHER PROGRAN 
SUCH AS: PAPER TAPE, DECTAPE MAGTAPE DISK, 

MOST COMMON WILL BE THROUGH DECTAPE BY 

USE OF ROM BOOT LOADER. 


EO] 
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138 4, STARTING PROCEDURE 
140 4.1 CONTROL SWITCH SETTINGS 

142 SWITCH 00 CLEARED INDICATES ONLY FIRST 128 

144 SET INDICATES EXTENDED 128. WORDS 

145 ARE TO BE CHECKED IN WHICH CASE 

146 PROGRAM 2 MUST BE FIRST. 

147 WHEN RUNNING ON B8M873Y-8,C,0,F,G OR H, 256 WORDS 
148 ARE AUTOMATICALLY CHECKED.’ 

190 4.2 STARTING ADDRESS 

158 STARTING ADDRESS 000200 

158 4.3 OPERATOR ACTION 

156 4.3.1 FOR NORMAL OPERATION WITHOUT EXTENDED 128 WORDS) 

157 1. LOAD STARTING ADDRESS (000200) 

158 3: SET SWITCHES AS PER 5.1.1 (NORMAL ALL SWITCHES DOWN) 

159 T 3! PRESS START SWITCH AND RELEASE. 

160 4. DEVICE VERSION. 

161 WHEN PROGRAM IS STARTED FOR THE FIRST TIME THE FOLLOWING 

162 WILL BE PRINTED OUT: 

163 MAINDEC-11 

1 peescy en 

166 THE OPERATOR WILL THEN SPECIFY THE VERSION BEING RUN. 

167 IS ANY NON-STANDARD VERSION. 

168 NOTE: PROGRAM TWO MUST BE RUN FIRST. 

169 BM873-YA REPLACES M792-YA,MR11-D8,M792-YH 

170 vB MASSBUS 

171 DOCMP BOOTSTRAP ROM 

172 8M873-YD KLIO (PDP-11) 256 BOOTS VERSION 2(17)) 
173 BN873-YF 10 (POP-11) 256 BOOTSTRAP ROM (VERSION 3(23)) 
174 BM873-YG KL10 (PDP-11) 256 BOOTSTRAP ROM 

175 BM873-YH KL10 (PDP-11) 256 BOOTSTRAP ROM 

177 S. THEN TYPE IN NUMBER OF PROGRAM TO BE RUN ‘NORMALLY PROGRAM 1 AND 4) 
179 4.3.2 IF YOU WISH TO TEST THE EXTENDED 128. WORDS THIS IS THE 

180 PROCEDURE : 

181 (NOT NEEDED FOR NORMAL TESTING OF BM873Y-8,C,D,F,G OR H) 

18 1. ae STARTING ADD. Ood200 

184 3. SET | ENABLE SW AND SINSLE CYCLE SW UP 

185 4: HIT Sr bRT SWITCH AND RELEASE. 

186 S: RUN PROGRAM 2 FOR ONE PASS. 

187 6. NOld MAY BE RUN. 

188 NOTE: VISUAL INSPECTION OF E 

189 IS YOUR RESPONSIBILITY. THAT DATA WAS 

199 PLACED INTO SOFTWARE TABLE FOR TEST COMPARISON. 


FOL 
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13 S. OPERATING PROCEDURE 
4 5.1.1 SWITCH SETTINGS (APPLICABLE IN ALL PROGRAMS) 
195 SW1S = 1 OR UP ... HALT ON ERROR 
13? SW14 = 1 OR UP ... LOOP ON TEST 
pea SW13 = 1 OR UP ... INHIBIT ERROR PRINT OUT 
sot SWi2 = 1 OR UP ... RESERVED 
oa SW11 = 1 OR UP ... INSTEAD OF EXERCISING EACH ADDRESS 10x DO IT 1X. 
ag SWOS = 1 OR UP ... LOOP WITH CURRENT ADDRESS 
one SWOB = 1 OR UP ... GOTO BEGINNING OF CURRENT PROGRAM ON ERRCR 
at 6. ERRORS 
git 6.1 ERROR PRINT OUT 


ALL ERRORS WILL HAVE A PRINT OUT.IF IT WAS A COMPARISON 
ERROR; THE SOFT ADDRESS. ROM ADDRESS, EXPECTED DATA 

(FROM SOFTWARE MAP), AND THE FOUND BUND BATH WILL BE PRINTED 

OUT. IF IT WAS A “NO TRAP WHEN WRITTEN” ERROR: THE 

ADDRESS WILL BE PRINTED OUT. IF IT WAS AN "UNEXPECTED TRAP “ 
WHEN READING ROM THE ADDRESS WILL BE PRINTED . 


ruroruruforuorey 
b= b= p= ps ps pe ge 
WONMUT CW 
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ERROR RECOVERY 
1. ITS A GOOD IDEA TO LEAVE SW1S=1 WHILE TEST RUNS 
TO PREVENT A RUN AWAY ERROR FROM GOING WILD 
IF YOU LEAVE THE CPU. 
2. IN An oe SET SW14=1(LOOP ON THIS ADDR. ) 
ND SET SW 13=1(DELETE ERROR PRINT OUT). 
IF CPU IS HALTED; HIT CONTINUE. 
3. NOW THE PROGRAM IS RUNNING AND YOU MAY SCOPE IT. 
RESTRICTIONS 
STARTING RESTRICTIONS 
SEE SECTION 4. 
OPERATING RESTRICTIONS 
IF YOU WISH PROGRAM TO TEST YOUR EXTENDED 128. WORDS; 
YOU MUST START AS PER SECTION 
###42#% RUN PROGRAM 2 FIRST Pre DATA. £##% 


T CABLE T ¥ 
YOU MAY NOT ALTER THE SOFTWARE MAP UNLESS-- 
*#%%%2% YOU KNOW WHAT YOU ARE DOING #**## 


THE ROM ADDRESS MUST START AT 173000 AND BE AT LEAST 
128 WORDS LONG. (256 FOR THE BM873Y-B,C,D,F,G OR H) 


MISCELLANEOUS 
EXECUTION TIME 


PROGRAM ONE WILL PASS AT APPROX. FIVE MINS. 

PROGRAM TWO po NO END PASS: BUT WILL HALT AT COMPLETEION 
HIT CONTINUE TO PROCEED IN THIS PROGRAM. 

PROGRAM THREE (RUN) WILL PASS APPROX. FIVE MINS. 

PROGRAM FOUR WILL PASS APPROX. FIVE MINS 
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9.3 


9.4 


PROGRAM DESCRIPTION 
PROGRAM 1 


PROGRAM 1 WILL VERIFY THE DATA IN THE ROM AND THE VERIFY 
THAT WRITING THE ROM WILL Mt OUT (EXCEPT THE VECTORS) 
EACH ADDRESS IS REFERENCED FIVE TIMES IN A ROW BEFORE 
UPDATING TO THE NEXT RESS. 

IF SWOO WAS UP WHEN START WAS HIT, THE EXTENDED 

128 WORDS WILL BE CHECKED. 

256 WORDS WILL BE CHECKED AUTOMATICALLY IF 
BM873Y-B,C,D,F,G OR H IS TESTED. 


PROGRAM 2 


~o 2 WILL DUMP THE CONTENTS OF THE ROM ONTO THE 
NOTE NO VERIFICATIO! 
OF ANY KIND IS PERFORMED ON THE DATA.(AN ERROR WILL OCCUR 
IF A TRAP IS ENCOUNTERED WHILE READING) YOU MUST INSPECT 
THE DATA YOUR SELF. IF SWOO WAS UP WHEN START WAS HIT 
THE EXTENDED 128. WORDS WILL BE PRINTED. 
256 WORDS WILL BE PRINTED IF BM873Y-B,C,D,F,G OR H IS SELECTED. 


PROGRAM 3 


PROGRAM 3_IS THE SAME AS PROGRAM ONE EXCEPT THAT THE 
USER HAS THE ABILITY ry ALTER THE SOFTWARE MA 

LIST OR PRINT THE SOFTWARE MAP, AND RUN THE PROGRAM. 
NOTE THAT IF YOU ALTER THE MAP’BE CAREFULL OF WHAT 


YOU CHANGE. 
FOR THE COMMANDS TO BE USED SEE TOP OF PROGRAM 3 IN THIS LISTING 


PROGRAM 4 


PROGRAM 4 CHECKS THE OFFSET ADDRESS WHEN THE SIMULATED 
PUSHING OF A BUTTON IS DONE BY THE oe a eS THE FIRST PASS 


CORE. WHEN 
REPEATED ONLY NO TYPE OUT IS PERFORMED, AND 3 var 
IN CORE IS COMPARED TO THE DATA FOUND AT THE ROM 


DURING THIS TEST “WRITING” THE ROM IS ore. 
THE VECTORS (173024,173224) ARE “WRITTEN” AND ARE 
#*NOT#*# EXPECTED TO’TRAP. AN ERROR MESSAGE WILL BE 
REPORTED IF A TRAP IS DISCOVERED. 


I01 
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312 9.5 THIS PROGRAM IS “XXDP AND ACT-11" COMPATIABLE; 
313 AT PRESENT TIME IF IN CHAIN MODE UNDER ACT-11 OR 

314 XXDP THe F PROGRAM AUTOMATICALLY DETERMINES IF THE ROM IS 

315 BM873YA OR YD, YF, YG OR YH BY COMPARING THE 1ST WORD IN ROM WITH 
316 THE EXPECTED BORD’ THE DIAGNOSTIC THEN RUNS 

317 PROGRAM 1 AND PROGRAM 4 BEFORE ENTERING THE MONITOR. 

313 9.6 ELECTRICAL PREQUISITES (HARDWARE) 

321 9.7.1 THIS OPTION MUST BE ON THE CPU SIDE OF ANY BUS BUFFERS. 

323 9.7.2 NPR CYCLES ARE NOT PERMITTED DURING THE POWER UP TRAP 

324 SEQUENCE. 

326 9.7.3 _IF FURTHER INFORMATION IS NEEDED 

327 CONSULT THE 8M873 MANUAL FOR HEL 

328 NOTE: THE DIAGNOSTIC RUNNING WITHOUT ANY INTERFERANCE FROM 

329 THE USER HAS NO WAY OF CHECKING THE PRESENTS OF THE 

330 “ACLO™ AND "DCLO” SIGNALS ON THE OPTION. 

331 .NLIST 

332 “LIST SEQ,LOC,BIN 

333 “LIST 

334 PAGE 


335 “ENDM HELLO 


JOl 
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336 > 
337 -MCALL HEADER, .SWRHI, .SWRLO, .EQUATE, .SETUP,.STRAP, .SCATCH, .SCMTAG 
338 "MCALL :RDLIN, .$SCOPE; /SERROR, .SERRTYP, .S$RDOCT 
340 .SBTTL TRAP CATCHER 
342 oo0000 =0 : 

343 ;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A *.+2,HALT” 

344 >¥SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT 

345 “LOCATION O CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 

347 .SBTTL STARTING ADDRESS(ES) 

348 000200 -=200 

350 000200 000137 011000 IMP Q#RESTRT ; JUMP TO STARTING ADDRESS OF PROGRAM 
$e .SBTTL BASIC DEFINITIONS 

354 -*INITIAL ADDRESS OF THE STACK POINTER *** 1100 ¥%% 

355 001100 STacK= 1100 

356 -EQUIV EMT, ERROR sBASIC DEFINITION OF ERROR CALL 
357 -EQUIV IOT. SCOPE “BASIC DEFINITION OF SCOPE CALL 
358 177776 PS= 177776 *PROCESSOR STATUS WORD 

3593 -EQUIV PS. PSI 

360 177774 STKLMT= 177774 ;STACK LIMIT REGISTER 

361 177772 PIRQ= 177772 :PROGRAM INTERRUPT REQUEST REGISTER 
362 177570 SWR= 177570 *SWITCH REGISTER 

363 177570 DISPLAY=SWR 

365 ;¥GENERAL PURPOSE REGISTER DEFINITIONS 

366 oooo00 RO= %0 ;GENERAL REGISTER 

367 000001 Ri= %1 “GENERAL REGISTER 

368 ooo002 Re= “2 “GENERAL REGISTER 

369 003 R3= “3 “GENERAL REGISTER 

370 0900004 RY= “4 GENER ISTE 

371 oo000s RS= 4S : GENER ISTER 

372 900006 Rb= ig GENERAL REGISTER 

373 000007 GENERAL REGISTER 

374 RrOUIV Re, sp ‘STACK POINTER 

278 “EQUIV R7,PC *PROGRAM COUNTER 

377 -*"SWITCH REGISTER” SWITCH DEFINITIONS 

378 100000 GwiS= 100000 

379 040000 SW14= 

380 o20000 SWi3= 20000 

381 010000 SWi2= 10000 

382 004000 SWil= 4000 

383 002000 SWi0= 2000 

384 001000 Swo9= 1000 

285 000400 cwos= 400 

386 000200 SuO7= 200 

387 900100 cwOb= 100 

368 000040 SwOS= 4 


0 
389 000020 SWO4= 20 
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BASIC DEFINITIONS 

000010 SWO3= 10 

000004 SwO02= 4 

o0000e2 SWOl= 2 

000001 Swood= 1 
EQUIV SWO9,SW9 
EQUIV SWO8, SWB 
EQUIV 7, SW7 
EQUIV SWO6,SW6 
EQUIV SWOS;SWS 
EQUIV SwWO4’ SW4 
EQUIV SWO3,SW3 
EQUIV : 
EQUIV SWO1;SW1 
EQUIV ‘ 
-¥DATA 

100000 BITIS= 10000 

040000 BITl4= 40000 

020000 BIT13= 20000 

10000 BITl2= 10000 
004000 BIT11= 4000 
2000 BIT10= 2000 

001000 BITO9= 1000 

000400 BITO8= 400 

000200 BITO7= 200 

000100- BITOb= 100 

000040 BITOS= 40 

000020 BITO4= 20 

000010 BITO3= 10 

000004 BITO2= 4Y 

oo000e2 BITOl= 2 

00000! BITOO= 1 
-EQUIV BITO9,BIT 
EQUIV BITOS,BIT 
EQUIV BITO7,BIT 
EQUIV BITOS,BIT 
EQUIV BITOS,BIT 
EQUIV BITOY'BIT 
EQUIV BITO3,BIT 
EQUIV BITO2,BIT 
EQUIV BITO1,BIT 
EQUIV BITOO;BIT 

o00004 

900010 RESVEC= to 

000014 TBITVEC=14 

000014 TVEC= 14 

ae Gis & 

000024 PWRVEC= 24 

000030 EMTVEC= 30 

000034 TRAPVEC=34 

000060 TKVEC= 60 


KO1 


- #BASIC cpu" TRAP VECTOR ADDRESSES 
ERRVEC= 


TIME OUT AND OTHER ERRORS 
ea AND ILLEGAL INSTRUCTIONS 


RACE T 
‘BREA KPOINT (BPT 
‘TPO auteut RPRAP (LOT) *#*¥SCOPE ## 
SER ATOR Mi (EMT) **#ERROR** 
TTY KEYBOARD VECTOR 


LO 
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444 000064 TPVEC= 64 ;TTY PRINTER VECTOR 


445 000240 PIRQVEC=240 “PROGRAM INTERRUPT REQUEST VECTOR 
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BASIC DEFINITIONS 


000046 
016640 


000052 
000000 
001100 


000000 
009 


0 
o0091e 


oooceo 000000 


MO1 
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.SBTTL COMMON TAGS 


;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRAM. 


.=46 
SENDAD sLOGICAL END OF PROGRAM 
.=52 
“WORD O 
=1100 
SCMTAG: sSTART OF COMMON TAGS 
SPASS: .WORD O “CONTAINS PASS COUNT 
STSTNM: .BYTE 0 ‘CONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0 ; CONTAINS ERROR FLAG 
SICNT: :WORD O ;CONTAINS SUBTEST ITERATION COUNT 
ADR: :WORD 0 ‘CONTAINS SCOPE LOOP 
SLPERR: .WORD O “CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD O *CONTAINS TOTAL ERRORS DETECT 
SITENG: -BYTE u 5 CONTAINS ITE CONTROL 8 E 
SERRPC: - WORD ; CONTAINS PC OF LAST ERROR INSTRUCTION 
SBDADR: :WORD 0 T OF *BAD’ DATA 
SapbAT: “WORD 0 CONTAINS *GAD’ DATA” 
STKS BORD, 90,0 pe ee vo OS eee 
$TKB: 177562 :TTY KBD BUFFER 
STPS: 177564 TTY PRINTER STATUS REG. 
STPB: 177566 ‘TTY PRINTER BUFFER REG. 
SNULL: .BYTE 0 ; CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: -BYTE 2 ; CONT AINS # OF FILLER CHARACTERS REQUIRED 
SFILLC: :BYTE le ‘INSERT FILL CHARS. AFTER 
STPELG: BYTE O SOTERA AVAILABLE” FLAG (BIT cb? ce YES) 
SCRLF: ASCII <15> CARRIAGE RETURN 
SLF: ASCIZ <12> ‘LINE FEED 


NO1 
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Pll COMMON T 

Re = cs 5 RERRA ERLE AREER ELLA A ERE LE EERE LEA REALE REAL REE RE ERR AE LEER ELE EE 
y 
430 .SBTTL ERROR POINTER TABLE 
492 ; #THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
493 ¥THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND 
494 ; LOCATION SITEMB. THIS NUMBER INDICATES WHICH TEN M IN THE TABLE IS PERTINENT. 
495 ¥NOTEL: IF SITEMB IS O THE ONLY PERTINENT DATA IS ( 
43 t eNOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
498 +X EM ;POINTS TO THE ERROR MESSAGE 
499 * DH POINTS TO THE DATA HEADER 
500 x OT POINTS TO THE DATA 
601 1% OF :POINTS TO THE DATA FORMAT 
503 t 
S04 001156 SERRTB: 
506 sERROR TABLE ITEM FOR ERROR MESSAGE O 
508 O01156 O20054 , EM1 :"ROM READ DATA COMPARISON ERROR” 

9 001160 O20254 DH1 t 
510 001162 Oe04s2 DT 1% 
ay 001164 O00000 0 :% PRINT ALL NUMERIC DATA IN OCTAL 
13 sERROR TABLE ITEM FOR ERROR MESSAGE 1 
515 001166 020116 EM2 "WRITTING ROM FAILED TO TRAP” 
S16 001170 020353 DHe 
517 001172 Ocp466 OTe 
518 001174 900000 0 ;PRINT ALL NUMERIC DATA IN OCTAL. 
520 sERROR TABLE ITEM FOR ERROR MESSAGE 2 
552 001176 oe0154 EM3 "UNEXPECTED TRAP WHILE READING ROM” 
S23 001290 Oe040sS DH3 
524 O01e02 02047 0T3 
525° 001204 O00 0 
Bob sERROR TABLE ITEM FOR ERROR MESSAGE 3 
S28 001206 020214 EMY "FATAL TRAP. ROM PC ON STACK.” 
629 001210 020353 DH2 
630 O0lel2e Oed466 OT2 
531 001214 900000 0 
233 DOLSe8 ODeEE FeoENT: ST TERATION COUNT 

Ht H ° ‘ 

53s Bp tS5o Booth TEMPS: 0 
536 001224 o00000 TEMP3: O 
£37 001226 O00000 TEMPY: 0 
538 $0 1230 oo0000 SAVRO: O 
£39 1e3e 000000 SAVRI: 0 
29 * ceed Save: 0 
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ERROR POINTER TABLE 


000001 
160000 


-TITLE OCTOBER 1 


; *COPYRIGHT 


976 
(C) aMa73 YX 


joicLs EQUIPMENT CORP. 
AYNARD, MASS. 01754 


Tenor BY DZBMD 


SSTHIS PROGRAM WAS ASSEMBLED yen THE PDP-11 MAINDEC SYSMAC 
; ¥PACKAGE (MAINDEC-11-DZQAC-Al 


étn N=1 
$SWR=160000 


;HALT ON ERROR, LOOP ON TEST, 


INHIBIT ERROR TYPOUT 
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M_AND FOR REFER ent 


;STARTING ADDRESS FOR BOOTSTRAP 
; THIS ILOROER IS DESIGNED FOR_THE RESTART MODULE M873. 
TIONALLY REPLACE 0 


:IT FUNCT PLACES THE FOLLOWING 

:M792-YA - PAPER TAPE BOOTSTRAP FOR PC11, KLIL 
‘MRI1-DB BULK STORAGE BOOTSTRAP ROM 

°M792-YH  TAL1 CASSETTE BOOTSTRAP ROOM 

RO: x0 REGISTER DEFINITIONS 

Ro= %2 

R3= %3 

R4¥= %4 

RS= VAS) 
= %6 

PC= 47 

SR= 177576 sPROCESSOR SWITCH REGISTER 


“STARTING LOCATION FOR RF11 DISK 

RF1l: MOV PC,Re ime) POINTER TO PARAMETER LISTS 
RANSFER TO Serv ICE ROUTINE 

DEVICE —E WORD COUNT ADDRESS 


-WORD 177462 
-WORD 5 DEVICE READ INSTRUCTION 


NSFER TO SE 
Tete WORD COUNT REGISTER 
“DEVICE READ INSTRUCTION 


THIS IS A ee pint LOCATION. IT TRANSFERS TO ADDRESS 
CONTAINED IN SWITC TER. 
TRANSR: MOV Beak, PC ;G0 TO INDICATED LOCATION 


ARE DEPENDENT ON OFFSET IN DIODES FOR LINE 1 


-WORD 177406 
-WORD 5 


AND 
SS _OF FIRST Lace ton IN ROM 


MAP. YA: 

- THE FOLLOWING IS A REPRODUCTION 
OF THE ROM PR FOR BM873YA. 
:IT IS HERE FOR COMPARISON TO 
“ACTUAL ROM 

173000 .=173000 
; ooo000 
: 000001 
; 000002 
: 000003 
: 000004 
: 000005 
. 000006 
: 000007 
: 177570 
010702 ;173000 010702 

O464 3173002 0 
177462 :173004 177462 

OS :173006 
010702 ;173010 010702 
;173012 000460 

177406 3173014 177406 

00S 173016 Oo0005 
013707 ;173020 013707 
177570 :173022 177570 
“NOTE 773024 AND 773224 
173000 ;173024 173000 
000340 3173026 000340 
010702 ;173030 010702 
000426 3173032 000426 
177344 3173034 17734 
004003 +;173036 004003 
100000 173040 100000 
Ge4000 ;17304e 2400 
OOO44S 3173044 OOO44S 
900005 173046 o00005 


THIS: 1S THE POWER UP VECTOR REQUIRED FOR DEVICE 
POWER: .WORD R - ADDRE 
RD So PROCESSOR STATUS LEVEL 
‘THIS IS THE STARTING RODRESS FOR TC11 (DECTAPE) CONTROLLER. 
tell: MOV PC,Re ;SET UP POINTER TO PARAMETER LIST 
R rats : NSFER TO FIRST ROUTINE 
-WORD 177344 VICE WORD COUNT ADDRESS 
“WORD 4003 + PEND PREVIOUS BLOCK COMMAND 
“WORD 100000 #§ :USED AS DONE INDICATOR 
“WORD 24000 i OeED aS ERROR INDICATOR/TEST FLAG 
THERX ‘THEN TRANSFER TO NEXT ROUTINE 
S ‘DEVICE READ COMMAND 


DO0e2 
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ZBMDH. ROM CONTENTS TABLES 
608 ; 
609 “THIS IS THE START LOCATION FOR TM11 MAGTAPE CONTROLLER 
610 001450 010702 ;173050 010702 TM11: MOV PC,Re ;SET POINTER TO PARAMETER LIST 
611 O0014S2 OOO41E ; 000416 BR TAPES ;AND TRANSFER TO FIRST ROUTINE 
Ble OO14SH 1725204 5173054 172524 «WORD 172524 5 PEvICe BYTE/RECORD COUNT REGISTER 
613 001456 060017 ;173056 060017 -WORD 60017 j DEV ICE REWIND COMMAND 
614 001460 000200 ;173060 000200 -WORD 200 DONE FLAG 
615 O01%6e 100000 ;17306e 100000 -WORD 100000 j DEVICE ERROR FLAG BIT 
616 001464 OOO4i3 ;173064 000413 BR TAPESX ; THEN TRANSFER TO NEXT SERVICE RTN 
617 OO01466 060011 ;173066 060011 -WORD 60011 ;DEVICE FORWARD SPACE COMMAND 
618 001470 000200 ;173070 000200 -WORD 200 ;SAME AS ABOVE 
619 001472 100000 ;17307e 100000 -WORD 100000 fa AS ABOVE 
620 001474 000431 ;173074 000431 BR OTHERX THEN TRANSFER TO READ/TRANSFER ROUTINE 
pst 001476 060003 ;173076 060003 -WORD 60003 DEVICE READ COMMAND 
623 : THIS IS THE START LOCATION FOR THE RP11 CONTROLLER 
624 O01SO00 010702 ;173100 010702 RP11: MOV PC,R2 3 SET POINTER TO PARAMETER LIST 
62S 001502 OO004e4 ;173102 O004e4 BR OTHER ; TRANSFER TO TRANSFER ROUTINE 
626 O01504 176716 ;173104 176716 -WORD 176716 ;DEVICE WORD COUNT REGISTER 
Pse 001506 3173106 000005 -WORD S DEVICE READ COMMAND 
629 : THIS IS THE TAPE DEVICE SERVICE ROUTINE. 
630 001510 010200 ;173110 010200 TAPES: wey Re, RO 3GET ADDRESS OF pone ree LIST 
631 O01Sie 005720 ;17311e 005720 TST (RO)+ ;SKIP_TWO WORDS FIRST TIME 
632 001514 3173114 000005 TAPESX: 2 RESET ALL DEVICES 
633 001516 005720 ;173116 005720 TST (RO)+ SKIP OVER BRANCH INSTRUCTION 
a4 ipless 016201 17st 016201 MOV 2(R2),R1 ;THEN GET DEVICE WORD/BYTE COUNT ADDRES 
636 001524 O0S311 ;173124 005311 DEC aR ;AND SET TO -1 
637 001526 012041 ;173126 012041 MOV (RO)+,-(R1) ;AND_THEN ISSUE COMMAND TO DEVICE 
638 001530 031011 ;173130 031011 TAPWAT: SIT RO,adR1 fh FOR DEVICE COMPLETION 
639 001532 001776 ;173132 001776 BEQ TAPWAT ;BY HANGING IN 
640 001534 005720 ;173134 005720 TST (RO)+ ;AND THEN SKIP DONE FLAG 
641 001536 032041 ;173136 032041 BIT (RO)+,-(R1) ; THEN TEST FOR ERROR 
642 001540 001063 ;173140 001063 OR : THERE IS 0 
os 001542 000110 ;17314e 000110 RETURN: JMP dJRO ;AND TRANSFER TO FOLLOWING INSTRUCTION 
64S “THIS IS THE STARTING ADDRESS FOR RC11 DISK CONTROLLERS 
646 OO1S44 O10702 ;173144 010702 RC11: MOV PC,Re Fae UP POINTER TO PARAMETER LIST 
647 001546 O00402 ;173146 OOD402 BR OTHER RANSFER TO SERVIC 
648 001550 177450 ;173150 177450 «WORD 177450 DEVICE WORD COUNT REGISTER 
een 001552 0000S ;173152 000005 -WORD S ;DEVICE READ INSTRUCTION 
651 ‘THIS ROUTINE PERFORMS THE ACTUAL TRANSFER TO — OF DATA 
652 001554 010200 ;173154 010200 OTHER: MOV Re,RO ;SET POINTER TO LIST 
653 001556 005720 ;173156 005720 TST (RO)+ SKIP TWO WORDS FIRST TINE. 
654 001560 005720 ;173160 005720 OTHERX: TST (RO)+ 35K KIP ++ if BR INSTRUCTION 
655 001562 0000 ;17316e 000005 RESET ;REST 
656 001564 016201 ;173164 016201 MOV 2(R2),R1 OBTAIN MDEVICE WORD COUNT ADDRESS 
657 001566 000002 ;173166 000002 
658 001570 012711 ;173170 012711 MOV #-1000,0R1 ;THEN OBTAIN LARGE WORD COUNT 
659 00157e 177000 ;17317e 177000 
660 001574 011041 ;173174 011041 MOV ORO,-(R1) ;AND PUT COMMAND TO DEVICE 
661 001576 105711 5173176 105711 OTHWAT: TSTB aRi ;WAIT FOR DONE FLAG 


E02 


ay 1976 MACY11 27(663) 18-FEB-77 15:18 PAGE 17 


ZBMDH.P11 ROM CONTENTS TABLES 
662 O01600 100376 ;173200 100376 BPL OTHWAT ;BY HANGING IN LOOP 
663 001602 005711 ;173202 005711 TST aR “THEN TEST FOR ERROR 
664 OO1604 100441 :173204 100441 BNI ERROR GOT PROBL 
B65 001606 005007 :173206 005007 PC : AND TRANSFER TO ZERO 
667 ‘THIS IS THE STARTING ADDRESS FOR THE PC11 PAPER TAPE CONTROLLER 
668 001610 012704 ;173210 012704 KLI1: MOV #177560,R4 ;OBTAIN DEVICE ADDRESS 
669 OO0l6l2 177560 53173212 177560 
670 001614 O00440 ;173214 O00440 BR CKDEV ;AND TRANSFER TO READER SERVICE ROUTINE 
672 ; 
673 -THIS IS THE CASSETTE DEVICE COMMAND TABLE 
674 001616 017640 ;173216 240 TABLE: E 240 ;COMPARE WORD NOT A COMMAND 
675 173217 =: 037 BYTE 37 : TLBS+RWD+GO 
676 001620 O0241S ;173220 O15 “BYTE 15 :SPACE FORWARD BLOCK+GO 
677 :173221 O05 “BYTE 5 : READ+GO 
678 O01622 112024 ;173222 024 “BYTE 24 *READ+ILBS 
679 °173223 224 -BYTE 224 *READ+ILBS+END FLAG 
680 ;NOTE 773024 AND 773224 ARE DEPENDENT ON OFFSET IN DIODES FOR LINE 1 
682 : THIS IS AN ADDITIONAL POWER VECTOR ADDRESS REQUIRED BY DEVICE 
683 001624 173000 17 ages 173000 POWER2: .WORD RF11 ;ADDRESS OF BEGINNING OF BOOTSTRAP 
BBY 001626 000340 :173226 000340 -WORD 340 *PRIORITY LEVEL 7 
686 ‘THIS IS THE STARTING ADDRESS FOR THE CASSETTE DEVICE #0 
687 001630 OOS004 ;173230 005004 ¢B00T: sLOAD DEVICE NUMBER O IN 
688 00163¢ o12700 : 173232 012700 RESTX: MOV #177S500,RO :GET DEVICE ADDTESS 
& 
690 001636 O00005 +;173236 O0000S RESTRT: RESET ; ISSUE RESET INSTRUCTION 
691 OO1640 010410 ;173240 010410 MOV R4.aRO ‘LOAD DEVICE WITH UNIT NUMBER 
b3e OO 16e b1e701 i 173e4e o1e701 MOV #TABLE,R1 cer FUNNY TABLE OF INSTRUCTIONS 
ba 001646 012702 j 173646 12702 MOV #375,R2 ;AND LOAD UP TRANSFER COUNTER 
6% 001652 tei03 i 153500 ET MOVB (R1)+,R3 ; THE LOAD UP COMPARATOR 
697 001654 112110 3173254 112110 LOOP1: MOVB (R1)+,aRO ;LOAD DEVICE REGISTER WITH COMMAND 
698 001656 100407 ;173256 100407 BMI 
699 001660 130310 ;173260 130310 LOooPe: BITE R3, JRO ;HAS COMMAND COMPLETED 
700 001662 001776 :173262 001776 BEQ LOOP2 iN IT 
701 OO1664 105202 ;173264 10520e INCB Re THEN INCREMENT ADDRESS CTR 
702 O01666 100772 ; 100772 BMI LOOP *IF NEGATIVE, GET COMMAND 
703 001670 116012 5172270 116012 MOVB BCRO) , ARE *AND STORE DATA AWAY 
ooo00e # . - 0000 
70S 001674 000771 :173274 000771 BR LOOP2 GO GET ANOTHER BYTE 
706 001676 005710 ;173276 005710 DONE: TST aRO “ANY DEVICE ERRORS 
707 001700 100756 ;173300 100756 BMI RESTRT iY RETRY 
708 001702 Oo0S002 ;173302 o0s002 CLR Re LEAR COMPARE ADDRESS AND TRANSFER ADDRESS 
7039 001704 120312 17g 120312 CMPB R3,aR2 it MUST 
710 001708 001377 :173306 001377 BNE .+0° NO, THERE Wacca N ERROR 
ail 001710 o00i12 173310 OO0112 ERROR: JNP aR2 ‘NORMAL CASSETTE AND ERROR FOR BULK STORAGE 
713 *THIS IS THE STARTING LOCATION FOR THE PC11 CONTROLLER 
714 001712 012704 ;173312 012704 PC11: MOV #177550,R4 ;LOAD DEVICE ADDRESS 
715 001714 177550 +:173314 177550 
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716 0017 

71 BDI 728 
718 001722 
719 001724 
720 001726 
721 001730 
7ee 001732 
723 001734 
724 001736 
72S 001740 
726 001742 
727 001744 
728 001746 
729 001750 
730 001752 
731 001754 
732 001756 
733 001760 
734 001762 
735 001764 
736 001766 
737 001770 
738 00177e 
739 1774 
740 001776 
741 001776 
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17388 Siero? 


173374 10Seee 


" 173376 000142 


CKDEV: 


LOOP: 
RDRWAT: 
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RESET 
MOV #160000,R1 


MOV #6,Re 
MOV #340, dRe 


MOV PC, -(R2) 
MOV #24, SP 


MOV RY,-(R1) 
B 1 


2° 

RORWAT 
nove 2(R4) ,dR2 
INC OR1 

CMPB Re, #375 
BNE LOOP 

INCB (R2)+ 


JMP -(R2) 


FOe2 


;KILL ALL DEVICE ACTION 
:THEN SET UP MEMORY TEST LIMITS 


;AND SET UP POINTER TO TIMEOUT LOCATION 
;AND SET UP VECTOR TO RETURN TO NEXT 


;SAVE THE PC 
AND LOAD UP STACK POINTER 


;AND LOOK FOR END OF MEMORY 
OP TO * erne 


: THEN DR 
38ND STORE IN 
Hy <0 ADDRESS. FOR DATA INSERTION 


3A AR 
THEN WAIT POR CHARACTER OLAS 
;HANGING THERE IF NECCESSAR 

;STORE AWAY DATA BYTE 


;HAS BRANCH OFFSET BEEN STORED 


;NO 
;YES, ALL DONE 
; THEN TRANSFER TO RTN 


GOe 
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me ; BM873B BOOTSTRAP MACYL1 27(655) 1-OCT-74 14:50 PAGE 1 
744 : sDATE: AUG 23, 1974 
745 002000 MAP. YB: 
746 THE FOLLOWING Is A REPRODUCTION 
747 5 OF THE ROM PROGRAM FOR BM873YB. 
748 :IT IS HERE FOR COMPARISON TO THE 
m3 S ACTUAL ROM AND FOR REFERENCE 
753 : : THIS Is THE LOADER TO REPLACE THE FOLLOW 
754 : >M792-Y APER TAPE BOOTSTRAP ROM 
755 : inRLI-08 BULK STORAGE BOOTSTRAP ROM 
756 : >M792-Y 1 CASSETTE BOOTSTRAP ROM 
737 : : RM73A A COMBINATION: OF ABOVE ROMS 
758 : ;PREPHERIAL EXTERNAL PAGE REGISTERS ASSIGNMENTS: 
761 : 177462 RFWC= 177462 ;WORD COUNT REG. FOR RF1 
762 : 177406 RKWC= 177406 “WORD COUNT REG. FOR RK1 
763 : 177344 TCWC= 177344 “WORD COUNT REG. FOR TCl 
764 : 172524 TMWC= 172524 ?BYTE/RECORD COUNT FOR T 
765 : 176716 RPWC= 176716 : WORD RI RPI 
766 : RCWC= 177450 “WORD COUNT REG. FOR RC1 
767 ; 60 KLCS= 7756 : CONT’ 
768 : 177500 TACS= 177500 “CONTROL REG. FOR TALI C 
769 : 75 PCCS= 77 i CON 
770 ; 172440 TUCS= 172440 ‘CONTROL STATUS REG. 1 
721 : 172442 TUWC=  TUCS+2 :TU16 WORD COUNT REG. 
773 : 176300 RHCSA= 176300 ;CONTROLLER REG. 1 FOR R 
774 ; i76202 RHWCA= RHCSA+2 
775 : 172040 RSCSA= 172040 -CONTROLLER REG.1 FOR RH 
776 : 172042 RSWCA= RSCSAt2 
777 : 176700 RPCSA= 176700 ;CONTROLLER REG. 1 FOR R 
778 : 176702 RPWCA= RPCSA+2 
779 : “FUNCTION VALUE FOR PREPHERALS: 
780 : 000005 RAFREAD= S ;READ FUNCTION 
781 : 004003 RNUM= 4003 "REVERSE AND IDENTIFY BL 
782 : 060017 ‘TMRWND= 60017 *REWIND AND SET 800 BPI 
783 : 060011 TMFWRD= 60011 *FORWARD RECORD COMMAND 
784 : 060003 ‘TMREAD= 60003 :TM11 READ 
785 : 000011 ORCLR= 11 ‘DRIVE CLEAR 
786 : 000071 RHREAD= 71 *RH11 READ COMMAND 
787 : 000021 RHPRST= 21 *READ IN PRESET 
788 : 000031 TUSPAC= 31 j SPACE FORWARD COMMAND F 
789 : 040000 TUTAPE= 40000 ; TAPE BIT IN RHII/RHDT R 
730 : 001300 TUMODE= 1300 :800 BPI NORMAL MODE FOR 
791 : 001000 1000 ‘FRAME COUNT ERROR BIT 
792 : {CONSOLE SuITCH REG. 
733 : 177570 éSw= 77570 
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113705 ; 
70 


173000 


; 173000 


00 :173106 


;ONLY THE LOW BYTE OF CONSOL SWITCH REGISTER IS 
SELECT THE UNIT NUMBER OF THE DEVICE TO BOOT FR 


-=173000 


- THIS IS, THE STARTING ADDRESS FOR RH11/RSO03/04 D 
Q0040S RHRSA: BR is sENTRY FOR SELECTING UNI 
Br o7B3 ane MOV R23: ENTRY TO SELECT UNITS 
ll MOVB Setei, JeRSCSA+10; LOAD UNIT ¢ INS 


3737 
S70 
172050 
401 BR 
010703 1S: MOV PC, R3 
012700 23: MOV #RSCSA,RO;SET CONTROL STATUS REG 
0526 BR RHCOMN 
“THIS IS THE AUTO LOAD VECTOR 
173000 .WORD RHRSA 
000340 “WORD 
: THIS IS. THE STARTING ADDRESS FOR RK11 CONTROLLE 
hoo41e2 BR es sENTRY TO SELECT UNIT O 
010703 RKLIB; MOV R3 _: ENTRY To SELECT ALL UNI 
PSAUE ERROR RETRY ES 
113705 MOVB ASCSH, RS;SET POINTER TO PARAMETE 
05270 BIS #10,RS ;SET POSITION BIT 
006105 1S: ROL RS ;SHIFT UNIT # TO BIT 13- 
103376 BCC 1$ “KEEP GOIN 
010537 MOV Re, JeRKWC+4;MOVE IN TO RKDA REGI 
000401 BR 3 SKIP NEXT INSTRUCTION 
010703 2S: MOV PC,R3  ;SAVE ERROR RETRY ADDRES 
010702 35: MOV PC’ Re 
000546 BR OTHERA 
177406 .WORD  RKWC 
00s “WORD RFREAD 
‘THIS IS THE STARTING ADDRESS FOR TC11 (DECTAPE) 
61070 03 TCll: MOV PC,R3  ;SAVE ERROR RETRY ADDRES 
0702 MOV PC’ Re 
70 BR TAPES 
177344 -WORD  TCWC 
00S "WORD RFREAD 
004003 “WORD RNUM 
100000 ‘WORD 100000 ;DONE MASK 
024000 ‘WORD 24000 ERROR MASK 


‘TM11 STARTING ADDRESS 
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850 002110 
851 O02lle 
8Se 002114 
853 002116 
854 002120 
85S O0elee 
856 002124 
857 002126 
858 002130 
8539 002132 
860 002134 
861 
862 
863 002136 
864 002140 
865 O0el42 
866 
867 002144 
868 0021 
869 
870 
871 002150 
872 O02e1Se 
873 002154 
874 002156 
875 002160 
876 O02elb2 
877 002164 
878 002166 
879 002170 
880 002172 
881 002174 
882 002176 
883 
884 O02ee0e 
88S 002204 
886 002206 
887 002210 
888 
889 
890 00221 
891 002214 
8392 O00ce216 
893 002220 
894 002222 
895 
896 
897 o02224 
898 O0e226 
8393 
300 
901 
902 
903 
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010703 
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3173110 
3173112 
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010703 M11: MOV PC,R3  ;SAVE ERROR RETRY ADDRES 


01 1673? MOV #TMRWND, 2TMWC-2;REWIND TAPE 

172522 

010702 MOV PC, Re 

oo0sss BR TAPES 

172524 .WORD  TMWC 

060003 “WORD TMREAD ;TM11 READ COMMAND 

060011 “WORD  TMFWRD sTMLL FORWARD RECORD COM 

000200 “WORD 200 MASK 
000 “WORD 100000 ERROR MASK 

STHIS IS THE STARTING ADDRESS FOR RF11 CONTROLLE 

61070 703 RF11: MOV PC,R3  ;SAVE ERROR RETRY ADDRES 
0702 MOV PC’R2 SET POINTER TO PARAMETE 
AOSIE BR OTHERA :GO TO COMMON SERVICE RO 

“ASSUME UNIT 
177462 .WORD RFWC  — ;DEVICE WORD COUNT REGIS 
ooo00s “WORD RFREAD ;READ COMMAND 


THIS. IS, THE STARTING ADDRESS FOR RH/TU16/TMO2 
610703 03 Ul6: MOV PC,R3 __;SAVE ERROR RETRY ADDRES 


012700 MOV sTUCS,RO:GET CONTROL STATUS WORD 
016710 TULBRE: MOV #RHPRST, (RO);REWIND TAPE CLEAR E 
012760 MOV #TUMODE,32(RO);SET 800 BPI NORMA 
001300 
000032 
012760 MOV #-1,6(RO);LOAD FRAME COUNT 
177777 
000006 
012710 MOV #TUSPAC, (RO) ;SPACE FORWARD 
000031 
105760 1S: TSTB =: 12 (RO) 
006012 
100375 BPL 1$ ;KEEP LOOPING 
000433 BR RHCOMN 
“THIS IS THE STARTING ADDRESS FOR RC11 CONTROLLE 
610703 “RC1I: MOV PC, R3 
010702 MOV PC’Re ;ASSUME UNIT O 
000476 BR OTHERA 
177450 .WORD  RCWC 
000005 “WORD RFREAD 
# 
“THIS IS THE AUTO LOAD VECTOR 
{173000 -WORD RHRSA 
000340 ‘WORD 340 


‘THIS IS THE STARTING ADDRESS FOR RHI1 DEVICE CO 


;NOTE: IF TMO2/TU16 SHOULD BE SELECTED. THE VAL 
IN CONSOL SWITCH REGISTER IS THE POSITIO 


J0e 
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904 ; ;O0N THE RH11 INSTEAD OF THE UNIT # ON TUL 
90s : *FHE SLAVE UNIT # (# ON TUJ6) SHOULD STIL 
906 002230 0040S ;173230 d00405 RHI BR is iEN NTRY TO SELECT UNIT 0 
907 002232 010703 3173232 010703 Rat iB: MOV TO SELECT ALL UNI 
908 002234 113737 3173234 113737 MOVB patel, auRricsey 10, “LOAD UNIT # INS 
909 002236 177570 3173236 177570 
910 O02240 176310 :173240 176310 
911 O02242 OO0401 :173242 O00401 BR 2s 
9l2 002244 010703 :173e44 010703 1S: MOV PC, R3 
913 00224 012700 ;17324% 012700 25: MOV #RACSA, RO 
914 002250 176300 31 176300 
915 002252 032760 ;173252 032760 RPCOMN: BIT STUTAPE, 26(RO); TAPE UNIT? 
916 002254 040000 ;173254 O40000 
917 002256 000026 31 000026 
918 002260 001336 173260 001336 BNE TUIBRE :YES. GO TO TAPE LOGIC 
919 O02262 012710 ;173262 012710 MOV #RHPRST, (RO);RESET DRIVE 
$20 002264 000021 ;173264 000021 
921 002266 012760 ; 012760 MOV #14000,32(RO);SET 16 BIT FORMAT 
$22 002270 O14000 :173270 
$23 002272 000032 173272 O00032 
924 002274 012710 :173274 012710 MOV #DRCLR, (RO);CLEAR DRIVE ERROR 
$25 002276 OO0011 3173276 O00011 
926 . . (GENERATED IF RSO3/04 
$27 002300 605720 ;173300 005720 RHCOMN: TST tRO)+  ;MOVE TO WORD COUNT ADOR 
928 002302 010037 :173302 010037 MOV RO,a#2 FAKE CALLING SEQUENCE 
929 002304 O00002 :173304 o00002 
930 002306 012737 ;173306 012737 MOV #RHREAD, a84 
931 002310 000071 :173310 000071 
932 002312 O00004 3173312 00004 : 
933 002314 O05002 :173314 o0SO02 CLR R2 FOR FLAG AND POINTER TO 
934 002316 000430 3173316 000430 BR OTHERA 
335 : -DSABL LSB 
937 : ‘THIS IS. THE STARTING ADDRESS FOR RH11/RPOY DISK 
$38 002320 Moo40s ;173320 doo40s BR is sENTRY FOR SELECT UNIT O 
939 002322 010703 :173322 010703 RHRPE: MOV TO SELECT ALL UNI 
940 002324 113737 3173324 113737 MOVB aati, aekPCsny 10. “LOAD UNIT # INS . 
941 002326 177570 :173326 173530 
Qy2 176710 3173330 176710 
943 002332 000401 ;173332 


i 3 000401 BR 
944 002334 010703 ;173334 010703 1S: MOV PC,R3 
94S 002336 012700 ;173336 oer es: MOV #RPCSA, RO 


946 002340 176700 ;173340 

ou Od2342 000743 5173342 000743 BR RPCOMN 

949 : ENTRY 19 BRANCH TO THE PC SELECTED BY CONSOL SW 
950 002344 613707 ;173344 137 SRGO: MOV aecSw, PC 

951 002346 177570 :173346 

35e ; ; 

a4 

95s : ‘THIS IS THE STARTING ADDRESS FOR RPL CONTROLLE 


956 002350 oo40s ;173350 Q0040S RP1IA: BR 1$ ;ENTRY TO SELECT UNIT O 
957 O023Se 010703 ;173352 010703 RPLIB: MOV PC,R3 SENTRY TO SELECT ALL UNI 


KOe 
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002354 113705 ;173354 113705 MOVB  a8CSW,RS 
959 002356 177570 ;173356 177570 
360 002360 909305 5173360 900305 SuAB RS -GET UNIT # INTO HIGH BY 
962 phsaee sare esas sate 1S: MOV PC,R3 
963 002366 995005 ;173366 005005 CLR RS 
964 010702 ;173370 010702 3s: MOV PC, R2 
002372 000403 ;173372 O00403 BR OTHER 
966 002374 176716 :173374 176716 .WORD RPWC 
367 002378 000005 3173376 000005 “WORD RFREAD 
969 o02400 05005 ;173400 0500S OTHERA: CLR RS SET TO UNIT ; 
970 O0e402 010200 :173402 010200 OTHER: MOV R2,RO ;RO POINT AT WORD COUN 
971 002404 005720 ;173404 005720 TST (RO)+ POINT TO PARA TER UteT 
972 002406 012001 3173406 012001 MOV (RODs, R1:MOVE WORD COUNT ADDRESS 
973 002410 012711 ;173410 912711 MOV #-256. #2, (R1);LOAD WORD COUNT 
974 002412 177000 ;173412 177000 
975 000414 051005 :173414 051005 BIS RO) 1B ; COMBINE aN # WITH COM 
279 Boousn Baart tzause AAOST a fib? cK FOR 
11 317 ll BIT Roa ff t F Of CK FOR ERROR AND 
978 O0e422 100200 ;173422 100200 
979 002424 001775 3173424 001775 BEQ 4 ;WAIT UNTIL COMPLETE 
980 002426 100012 ;173426 100012 BPL is : R 
aaa Ca cl a a a OO 
1 317 1 I #TUTAPE, 26(R1);1S TU16? 
oe 002435 040000 5173436 040000 ; 
986 ppsuue Otis 217344 14 BEQ AGAIN ;NO. ERROR 
387 002444 dee761 3173444 022761 CMP #FCE,14(R1);ARE WE READ A SHORT 
989 Spo4ep 000014 :1734SO0 000014 
9990 002452 001014 3173452 001014 BNE AGAIN ; SOME OTHER ERROR 
331 002454 005007 ;173454 005007 18: CLR PC :0.K 
993 : “THIS IS THE TAPE DEVICE SERVICE ROUTINE 
994 002456 10200 ;173456 610200 TAPES: MOV R2,RO  ;GET THE ADDRESS OF THE 
99S 3760 i 173460 72 ST (RO)+ STEP _TO LAST COMMAND 
996 503 1 317 12001 MOV (RO)+, Rl; THE WORD COUNT ADDR 
997 002464 005311 :173464 005311 DEC (RI UP TO ADVANCE 1 REC 
998 002466 005720 :173466 005720 TST (RO)+  iMOVE RO TO FIRST COMMAN 
002470 012041 3173470 012041 MOV (RO)+,-(R1);LOAD COMMAND REG. 
1000 002472 031011 :173472 031011 BIT (RO), (R1); DONE? 
1001 002474 001776 3173474 001776 BEQ - hk KEEP LOOPING 
1002 002476 005720 3173476 005720 TST (RO)+ :YES. CHECK FOR ERROR 
1ODY Gosebe BOieae ttesene sige To OOTHE OR BRRERS TRY TO READ 
° ae = 
1005 002504 0000s 3173504 O00005 AGAIN: RESET 
1007 oo2soe 600113 ;173506 000113 IMP (R3)  ;ERROR RETURN 
1009 : ‘THIS IS THE STARTING ADDRESS FOR PC11 PAPER T 
1010 002510 612704 ;173510 bie704 KL11: MOV #KLCS,R4; OBTAIN CONTRO REG. 
1011 O02512 177560 :173512 177560 


LOe2 
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1012 002514 000443 ;173514 000443 BR CKDEV ;AND TRANSFER TO READER 
+] 

Be : 

1016 : “CASSETTE TAPE DEVICE COMMAND TABLE 

1017 002516 ‘BYTE 240 ;173516 240 TABLE: .BYTE 240 ; COMPARE WORD NOT A COMM 

1018 002517 :BYTE 037 :173517 037 ‘BYTE 37 : TLBS+RWD+GO 

1019 002520 [BYTE 015 3173520 015 “BYTE 15 : SPACE FORHARD BLOCK+GO 

1020 002521 [BYTE 005 :173S21 005 "BYTE § * REA 

1021 O02522 “BYTE O24 :173522 024 "BYTE 24 READ +ILBS 

dee 002523 iBYTE 224 3173823 224 “BYTE 224 *READ+ILBS+END FLAG 

1024 : “THIS IS THE STARTING ADDRESS FOR THE CASSETTE D 

1025 002524 Oo0404 ;173524 00404 CBOOTA: BR 1$ >SELECT UNIT O 

1026 002526 113704 3173526 113704 CBOOTB: MOVB  asCSW,R4;SELECT UNITS 

1027 002530 177570 3173530 177570 

1028 002532 -1 SWAB | 

1029 002534 O00401 :173534 O00401 BR RESETX 

1030 002536 O0S5004 :173536 O0S5004 1S: CLR RY 

1031 002540 012700 3173540 012700 RESETX: MOV #TACS,RO;GET CONTROL REG. 

1032 002542 177500 ;173542 177500 

1033 002544 OO000S ;173544 OD000S RESTRT: RESET 

1034 002546 010410 3173546 010410 MOV R4, (RO) ;SELECT UNIT 

1035 002550 012701 ;173550 012701 MOV #TABLE, RI 

1036 002552 173516 3173552 17351 

1037 002554 012702 3173554 012702 MOV #375,R2 ;LOAD TRANSFER COUNTER 

1038 002556 000375 :173556 000375 

1039 002560 112103 3173560 112103 MOVB (R1)+,R3;LOAD COMPARATOR 

1040 002562 112110 :1735S2 112110 LOOP1: MOVB (R1)+,(RO);LOAD COMMAND 

1041 002564 100407 3173564 100407 MI 

1042 002566 130310 ;173566 130310 LOOP2: BITB R3,(RO) ;COMMAND COMPLETE? 

1043 002570 001776 ;173570 001776 BEG LObP2 ;NO. 

1044 002572 105202 3173572 105202 INCB Re i INCRENEN NT ADDRESS CTR. 

1045 002574 100772 3173574 100772 BMI LOOP! :IF GET COMMAND 

1046 002576 116012 :173576 116012 MOVB 5(RO), (R2); stort BA 

1047 002600 O00002 :173600 o00002 

1048 002602 000771 ;173602 000771 BR LOOP2 GET ANOTHER BYTE 

1049 002604 005710 $173604 005710 DONE: TST (RO) ANY ERR | 

1050 002606 100756 ;173606 100756 BMI RESTRT ; YES RoR 

1051 002610 005002 ;173610 o0S002 CLR AR COMPARE ADDRESS 

1052 O02612 120312 ;173612 120312 CMPB =sR3, (R2) ; ‘IT MUST BE 240 

1053 002614 001377 3173614 001377 BNE ‘ 

1058 002616 O00112 ;173616 O00112 ERROR: JMP (Re) ! 
= a 4 

1056 ‘THIS IS THE STARTING ADDRESS FOR THE PC11 CONTR 

1057 612704 ;173620 612704 PC1I: MOV #PCCS,R4 

1058 002622 3173622 177550 

1059 002624 7173624 OO000S CKDEV: RESET 

1060 002626 012701 3173626 012701 MOV #160000,R1;SET UP MEMORY TEST LI 

1061 002630 1 173630 160000 

1062 002632 012702 }173632 Ol2702 MOV #6,R2  ;SET UP POINTER TO TIMEO 

1063 002634 00 *173634 000 

1064 002636 012712 3173636 012712 MOV #340, (R2);SET UP VECTOR TO RETUR 

1065 002640 O00340 3173640 000340 


MOe2 
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1066 O02642 010742 ;173642 010742 MOV PC,-(R2);SAVE PC 

1067 O0e6 44 012706 5173644 012706 MOV #24,SP LOAD UP STACK POINTER 
1069 002650 O10441 3173650 O10441 MOV R4,-(R1);LOOK FOR END OF MEMORY 
070 O026S2 O40601 3173652 1 BIC SP, ‘THEN DR 752 
1071 002654 010111 3173654 010111 MOV R1'(R1) AND STORE IN ITSELF 
1072 002656 011102 ;173656 011102 LOOP: MOV (RI), Re 

1073 002660 005214 ;173660 005214 INC CR)” i START DEVICE 
1074 O02662 105714 3173662 105714 RDRWAT: TSTB (R4Y) WAIT 

1075 002664 100376 ;173664 100376 PL RORWA 

1076 OO02666 116412 3173666 116412 MOVB 2(R4), (R2);SAVE THE DATA 
1077 002670 2173670 00002 

1078 002672 O0S5211 ;173672 005211 INC 

1079 OQ02674 120227 :173674 120227 CMPB Re 4375 

1080 002676 000375 ;173676 000375 

1081 002700 001366 ;173700 001366 BNE LOOP = ;NO 

1082 002702 105222 ;173702 105222 INCB 6 (R2)+ = YES 

1083 002704 O00i4e ;173 000142 J -(R2) 

1084 002706 000000 ;173706 000000 THIS AREA IS UNUSED 

1085 002710 OO0000 ;173710 OO0000 ;THIS AREA IS UNUSED 

1086 002712 OO0000 3173712 OO00000 ;THIS AREA IS UNUSED 

1087 002714 000000 ;173714 000000 THs AREA IS UNUSED 

1 002716 OO0000 ;173716 O00000 ;THIS AREA IS UNUSED 

1 002720 000000 3173720 O00000 ;THIS AREA IS UNUSED 

1090 002722 O00000 :173722 O00000 ;THIS AREA IS UNUSED 

1091 092724 000000 :173724 OOD000 ;THIS AREA IS UNUSED 

1092 002726 O00000 3173726 OO0000 ;TWIS AREA IS UNUSED 

1093 002730 000000 ;173730 O00000 ;THIS AREA IS UNUSED 

1094 002732 000000 3173732 O00000 ;THIS AREA IS UNUSED 

1095 002734 O00000 :173734 O00000 ;THIS AREA 18 UNUSED 

1096 002736 000000 ;173736 000000 ;THIS AREA IS UNUSED 

1097 002740 000000 :1 000000 :THIS AREA IS UNUSED 

1098 O02742 OO0000 3173742 OO000D ;THIS AREA IS UNUSED 

1099 002744 O00000 3173744 000000 ;THIS AREA IS UNUSED 

1100 002746 000000 ;173746 O00000 :THIS AREA IS UNUSED 

1101 002750 OO00000 ; O00°GG THIS AREA IS UNUSED 

1102 002752 000000 ;173752 O00000 ;THIS AREA IS UNUSED 

1103 002754 000000 173754 000 *THIS AREA IS UNUSED 

1104 002756 000000 ;173756 *THIS AREA IS UNUSED 

1105 002760 O00000 3173760 O00000 ;THIS AREA IS UNUSED 

1106 002762 O00000 3173762 O00000 ;THIS AREA IS UNUSED 

1107 002764 O00000 3173764 QO :THIS AREA TS UNUSED 

1108 002766 O00000 ;173766 O00000 ;THIS AREA IS UNUSED 

1109 002770 000000 ;173770 000000 THES AREA IS UNUSED 

1110 002772 000000 3173772 O00000 :THIS AREA IS UNUSED 

1111 002774 000000 :173774 O00000 ;THIS AREA IS UNUSED 

1112 002776 END. YB: 

1113 002776 000000';173776 OO00000 ;THIS AREA IS UNUSED 


NOe 
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THIS IS THE ean UP VECTOR REQUIRED FOR DEVICE AND 
173000 Anus. . -WORD RF ;ADDRESS OF FIRST LOCATION IN ROM 
000340 - WORD S40" PROCESSOR STATUS LEVEL 7 


1114 003000 MAP.YC: 

1115 ; THE FOLLOWING 1000 rg ARE 

1116 "A REPRODUCTION OF THE ROM PROGRAM 

1117 ;FOR THE BM873YC. THE FIRST 300 LOCBT IONS 

1118 ;ARE AN EXACT COPY OF THE BM873YA. THE 

1119 j REMAINING 400 LOCATIONS ARE 

1120 DDCMP BOOTSTRAP ROM PROGRA 

llel Tt IS HERE FOR COMPARISON TO 

1l22 “ACTUAL ROM AND FOR REFEREN cee 

1123 173000 .=173000 ;STARTING ADDRESS FOR BOOTSTR 

1124 : THIS LOADER IS DESIGNED FOR THE RESTART MODULE M873. 
1125 IT FUNCTIONALLY REPLACES THE FOLLOWING ROMS: 

1126 *M792-YA - PAPER TAPE gg bt badd FOR PC11,KL11 

1127 :MRI1-DB BULK STORAGE BOOTSTRAP my. 

1128 -M792-YH  TAI1 CASSETTE BOOTSTRAP ROM 

1129 ; 000 RO= %0 ;REGISTER DEFINITIONS 

1130 ; 000001 Ri= “1 

1131 : 0 Re= ze 

1132 : 03 R3= %3 

1133 : 000004 RY= “4 

1134, : oS = “5 

1135 ; SP= “6 

1136 : 000007 PC= %7 

iiss 3 177570 = 177570 ;PROCESSOR SWITCH REGISTER 
1139 {STARTING LOCATION FOR RF11 DISK 

1140 003000 010702 ;173000 010702 AFI MOV PC,Re ;SET POINTER TO PARAMETER LISTS 
1141 464 ;172002 000464 R ‘TRANSFER TO SERVICE ROUTINE 
1142 003004 177462 ;173004 177462 -WORD 177462 j DEVICE WORD COUNT ADDRESS 
fist o0000S ;173006 000005 -WORD 5 ;DEVICE READ INSTRUCTION 
1145 ;THIS sy THe STARTING LOCATION FOR THE RK11 CONTROLLER 
1146 003010 010702 ;173010 010702 AK1I C ;SET POINTER TO PARAMETER LIST 
1147 003012 OO0460 173012 000460 BRO R : RANSFER TO SERVICE ROUTINE 
1148 14 177406 ;173014 177406 -WORD 177406 ;DEVICE WORD COUNT REGISTER 
lied 003016 O00005 ;173016 O00000S -WORD 5 ;DEVICE READ INSTRUCTION 
1151 THIS IS A SPARE STARTING LOCATION. IT TRANSFERS TO ADDRESS 
1 sCONTAINED IN THE SWITCH REGISTER. 

1 003020 013707 ;173020 013707 ‘TRANSR: MOV aa#SR,PC ;G0 TO INDICATED LOCATION 

1 003022 177570 _ ;17302e 177570 

: ;NOTE 773024 AND 773224 ARE DEPENDENT ON OFFSET IN DIODES FOR LINE 1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


SS SSSR RRA 
OS in Euro bo ote aaron eeote 


73024 
73026 

STHIS IS THE ee uePoltt Tc ee 
;173030 01 teil: HOV ke 3$ 
Bc BORD I iv Taare eR WORD COUNT 
7 i er 


; I 
cf iD fe i INOICATOR/ TEST FLAG 


& 


B03 
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1168 003044 OOO44S ;173044 OOO44S BR OTHERX ; THEN TRANSFER TO NEXT ROUTINE 

iis 00304 oo0005 ;173046 000005 -WORD S ;DEVICE READ COMMAND 

1171 THIS IS THE START Locarron FOR TM11 MAGTAPE CONTROLLER 

1172 003050 010702 ;173050 010702 TM11: MOV PC,Re ;SET POINTER TO PARAMETER LIST 

1173 CO30S2 O00416 ;1730Se 000416 BR TAPES sAND TRANSFER TO FIRST ROUT INE 

1174 003054 172524 ;173054 172524 -WORD 172524 ;DEVICE BYTE/RECORD COUNT REGISTER 

1175 003056 060017 ;173056 060017 -WORD 60017 ; DEVICE REWIND COMMAND 

1176 003060 000200 ;173060 000200 -WORD 200 ;DEVICE DONE FLAG 

1177 003062 100000 ;17306e 100000 -WORD 100000 DEVICE ERROR FLAG BIT 

1178 003064 O00413 ;173064 000413 BR TAPESX THEN TRANSFER TO NEXT SERVICE RTN 

1179 060011 ; 060011 -WORD 60011 DEVICE FORWARD SPACE COMMAND 

1180 003070 000200 ;173070 000200 -WORD 200 SAME AS ABOVE 

1181 003072 100000 ;173072 100000 -WORD 100000 SAME AS ABOVE 

1182 003074 000431 ;173074 000431 BR OTHERX ;THEN TRANSFER TO READ/TRANSFER ROUTINE 

ie 003076 0003 ;173076 060003 -WORD 60003 ;DEVICE READ COMMAND 

1185 ‘THIS IS THE START LOCATION FOR THE RP11 CONTROLLER 

1186 003100 010702 ;173100 010702 AP11: MOV PC,Re +3 POINTER TO PARAMETER LIST 

1187 3102 O00424 ;17310e 000424 RANSFER TO tee ie ROUTINE 

1188 003104 176716 ;173104 176716 -WORD 176716 ‘DEVICE WORD COUNT REGISTER 

tis 3106 00 3173106 OO000S -WORD 5 DEVICE READ COMMAND 

119] : THIS IS THE TAPE DEVICE SERVICE ROUTINE. 

1192 003110 010200 ;173110 010200 TAPES: MOV R2,RO ;GET ADDRESS OF PARAMETER LIST 

1193 003112 0057 3173112 005720 TST (RO)+ ; SKIP TWO WORDS FIRST TIME 

1194 003114 3173114 000005 TAPESX: wee ;RESET ALL DEVICES 

1195 003116 005720 ;173116 005720 TST (RO)+ SKIP OVER BRANCH INSTRUCTION 

ie pests 016201 stestee paoens MOV 2(R2),R1 THEN GET DEVICE WORD/BYTE COUNT ADDRES 
’ 

1198 003124 005311 ;173124 005311 DEC aR 7 AND SET T0 -1 

1199 003126 O12041 ;173126 012041 MOV (RO)+,-(R1) ;AND THEN ISSUE COMMAND TO DEVICE 

1200 003130 031011 ;173130 031011 TAPWAT: BIT ORO, dRI ;WAIT FOR DEVICE COMPLETION 

1201 003132 001776 ;173132 001776 BEQ TAPWAT ;BY HANGING IN 

1202 003134 005720 ;173134 005720 TST (RO)+ SAND THEN SKIP DONE FLAG 

1203 003136 032041 5173136 032041 BIT (RO)+,-(R1) ; THEN TEST FOR E 

2 003140 001063 ;173140 001063 B RROR 5 THE E 

ise 003142 000110 ;17314e 000110 RETURN: JMP @RO ;AND TRANSFER TO FOLLOWING INSTRUCTION 

1207 “THIS IS THE STARTING ADDRESS FOR RC11 DISK CONTROLLERS 

1208 003144 010702 ;173144 010702 RC11: MOV PC,Re sSET UP POINTER TO pee tae LIST 

1209 003146 OO00402 ;173146 000402 BR VOTHER ; TRANSFER TO SERVICE 

1e10 003150 177450 ;173150 177450 -WORD 177450 DEVICE WORD COUNT REGISTER 

sth 003152 000005 ;1731Se 000005 -WORD S ;DEVICE READ INSTRUCTION 

1213 ‘THIS ROUTINE PERFORMS THE ACTUAL TRANSFER TO ee OF DATA 

1214 003154 010200 ;173154 010200 OTHER: MOV R2,RO j SET POINTER TO LIST _IN 

1215 31 005720 ;173156 005720 TST (RO)+ ;SKIP TWO WORDS FIRST TINE. 

le16 003160 3173160 005720 OTHERX: TST (RO)+ ; SK IP a+ BR INSTRUCTION - 

lel7 0031 ;17316e 000005 RESET ;REST 

1e18 003164 016201 ;173164 016201 MOV 2(R2),R1 ‘OBTAIN "DEVICE WORD COUNT ADDRESS 

1e19 003166 000002 ;173166 000002 

lee0 003170 012711 ;173170 012711 MOV #-1000,0R1 ;THEN OBTAIN LARGE WORD COUNT 

leel 003172 177000 ;173172 177000 
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012704 
177560 
000440 


017640 
002415 
112024 


:173 ee 
;NOTE 773024 AND 773224 


173000 
000340 


peReaBnNe 
RioNNooNeoale = 


8 


o~ 

or 35 
— 
BEANS 
IRE 
“ro O~ 


000112 


3173174 011041 


173204 100441 
: 173206 005007 


;173210 012704 
173212 177560 
173214 000440 


; 173216 240 
;173017 037 
; 173220 015 
; 173221 
;173eee 024 

223 


3173224 173000 
;173226 000340 


;173230 005004 
173232 012700 

177500 
£17323 aoe0s 


173310 000112 


OTHWAT: 
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MOV ORO, -(R1) 
TST 
BPL OTHWAT 


TST oR} 
ot tae 


CO3 


; AND PUT rere D DEVICE 


; THE 
GOT PROBLEMS 
“AND TRANSFER TO ZERO 


iT Het by IS THE STARTING ADDRESS FOR THE PC11 PAPER TAPE CONTROLLER 


kul 


TABLE: 


MOV #177560,R4 
BR CKDEV 


-BYTE 15 
-BYTE 5 
-BYTE 24 


;OBTAIN DEVICE ADDRESS 
;AND TRANSFER TO READER SERVICE ROUTINE 


-THIS IS THE CASSETTE DEVICE COMMAND TABLE 
-BYTE 240. ; COMPA 
-BYTE 37 


ARE WORD NOT A COMMAND 
; ILBS+RWO+GO 
; SPACE Ds ates BLOCK+G0 


abs LBS 
ILBS+END FLAG 


-BYTE 224 
ARE DEPENDENT ON OFFSET ir DIODES FOR LINE 1 


POWER 


C 
RESTX: 


RESTRT: 


LOOP1: 
LOOP2: 


DONE : 


ERROR: 


D 340 


CLR RY 
MOV #177500, RO 
RESET 

MOV R4, ORO 

MOV #TABLE,R1 
MOV #375,R2 


MOVB (R1)+,R3 
MOVE (R1)+,aRO 


BM 

BITB R3,aRO 
BEQ LogPe 
BMI LOOP 
MOVB 2(RO),dR2 
BR LOOP2 
TST oRO 

BN RESTRT 
CMPB R3,dR2 
BNE .+0° 
IMP aR2 


NNING OF BOOTSTRAP 


THIS. a eS ae POWER VECTOR BEGIIAI REQUIRED BY DEVICE 
OR 


; ADDR 
“PRIORITY LEVEL 7 


;THIS. IS THE STARTING ADDRESS Oe Coseet re eu #C 


;LOAD DEV 
GET DEVICE ADDTESS 


; ISSUE RESET INSTRUCTION 
"LOAD DEVICE WITH UNIT NUMBER 
GET FUNNY TABLE OF INSTRUCT IONS 


;AND LOAD UP TRANSFER COUNTER 


; THE LOAD UP COMPARATOR 
*LOAD DEVICE REGISTER WITH COMMAND 


HAS COMMAND COMPLETED 
0, WAI 
THEN INCREMENT ADDRESS CTR 
IF NEGATIVE, GET con MMAND 
AND STORE DATA AWA 
GO GET ANOTHEP BYTE 
iraty DEVICE VICE ERAORS 
ak CORPARE ADDRESS AND TRANSFER ADDRESS 


:NO THERE WAS A IN ERROR 
;NORMAL CASSETTE "AND ERROR FOR BULK STORAGE 


‘THIS IS THE STARTING LOCATION FOR THE PC11 CONTROLLER 


DOS 
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1276 003312 012704 steele Oiecor PCll: MOV #177550,R4 ;LOAD DEVICE ADDRESS 
1277 003314 177550 ;173314 17755 


STUART WECKER 01/22/75 


1278 003316 OO0000S ;173316 booebs CKDEV: RESET sKILL ALL DEVICE ACTION 
1279 003320 012701 ;173320 012701 MOV #160000,R1 ;THEN SET UP MEMORY TEST LIMITS 

1280 003322 160000 ;173322 160000 

1281 003324 012702 ;173324 012702 MOV #6,R2 ;AND SET UP POINTER TO TIMEOUT LOCATION 
1e82 003326 OO00006 ;1 000006 

1283 003330 012712 ;173330 012712 MOV #340,dR2 § ;AND SET UP VECTOR TO RETURN TO NEXT 
1284 003332 O00340 5173332 000340 

1285 003334 010742 +:173334 010742 Mov PC, -(R2) ;SAVE THE PC 

1286 003336 012706 ;173336 012706 #24, SP :AND LOAD UP STACK POINTER 

1287 003340 O00024 :1 000024 

1288 003342 010441 3173342 010441 MOV R4Y,-(R1) ;AND LOOK FOR END oF MEMORY 

1289 003344 O40601 :173344 040601 BIC SP,RI1 ; THEN DROP TO xx77S2 

1290 003346 010111 ;173346 010111 MOV R1‘aR1 "AND STORE IN IT teerr 

1291 003350 011102 ;173350 011102 LOOP: Mov aRi,Re : THEN LOAD ADDRESS FOR DATA INSERTION 
1292 003352 005214 ;173352 005214 INC ORY 58ND START DEVI 

1293 003354 105714 ;173354 105714 RDRWAT: TSTB dRY WAIT FOR CHARACTER AVAILABLE 
1294 003356 100376 ;173356 100376 BPL RDORWAT t AORIGING THERE IF NECCESSARY 

1295 003360 116412 ;173360 116412 MOVB 2(R4),dR2 ;STORE AWAY DATA BYTE 

1296 003362 O00002 ;173362 000002 

1297 003364 005211 ;173364 005211 INC JRL 

1298 003366 120227 +:173366 120227 CMPB R2,#375  ;HAS BRANCH OFFSET BEEN STORED 

1299 003370 000375 ;173370 000375 

1300 003372 001366 ;173372 001366 BNE LOOP -NO 

1301 003374 105222 +;173374 105222 INCB (R2)+ ‘YES, ALL DONE 

1302 003376 O00142 ;173376 000142 JMP -(Re) : THEN PRONSEER TO RTN 

1304 ; THE FOLLOWING 400 LOCATIONS ARE 

1305 7A REPRODUCTION OF THE DDCMP BOOT- 

1306 iS TRAP ROM. IT IS HERE FOR COM- 

1307 ARISON TO THE ACTUAL ROM AND 

1308 FOR REFERENCE. 

1310 : COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD,MASS. 01754 
1312 : THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 

1313 : LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 

1314 : CAN BE COPIED (WITH INCLUSION OF DEC’S 

1315 : COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM 

1316 : EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING 

tale ; on 

1319 : THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

1320 : CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
1321 : AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
1323 : DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR 

1324 : RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH 

1365 : IS NOT SUPPLIED BY DEC. 

A ; 

1327 : VERSION 01 

1328 : 
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000000 


SSE SSS EE SE OEE SESE SESS SESS SS SS SEE SOE SESE SES OSES OE OES EOS OE OS OE OE OE ws Oe ee ee es ee es ee OS ee as 


ho=x0 
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DIGITAL EQUIPMENT CORPORATION 
COMPUTER NETWORK FACILITIES 

DOWN-LINE LOADING PROGRAM 

THIS PROGRAM LOADS COMPUTER MEMORY FROM DATA SENT OVER 

A DATA COMMUNICATIONS LINK. IT SENDS AND 

MESSAGES IN DDCMP BOOT orn THE PRIMARY BOOT ONLY 

LOADS A SINGLE BLOCK, THE SECONDARY BOOT, WHICH 

THEN REQUESTS AND OAs THE DESIRED PpocRAN 

CURRENT VERSION DDCMP: 3.0 - MAY 7,1974 

THE BOOTSTRAP MESSAGES ARE OF THE FORM: 

SYN, SYN, DLE, CNT,F,S,FILL,FILL,ADDR,CRC1,DATA,CRC2 

ALL ITEMS ARE 8-BITS LONG UNLESS OTHERWISE SPECIFIED 
SYN-THE SYNC CHARACTER-SYNC-226, ASYNC-377 


DLE-THE BOOT HEADER CHARACTER-OCTAL 220 
CNT-THE 14-BIT COUNT FIELD-LENGTH OF DATA FIELD 
HE FINAL CONTROL 


L-A FILL CHARACTER-OCTAL 
ADOR-THE STATION ADDR-FOR PT. TO PT. 
CRC1-THE 16-BIT CRC-16 COMPUTED ON ble THROUGH ADDR 
DATA-THE BOOT DATA AS FOLLOWS: 
CODE, INFO 
ONLY THE FOLLOWING CODES ARE USED BY THE 
MARY BOOT 


DE=10 REQUEST STATION A PROGRAM 


ON 
CODE=0 PROGRAM “LOAD “TH TANESFER ADDRESS 
enone, ,BLK LDADDR, IMAGE DATA, TRANS ADDR 


BLK 
ner LDADDR=6 
RANS ADDR=6 
DER COUNT > OR = 


HEA TO 10. 
ADDRESSES ARE. 4 BYT Esa BITS-LOW BIT FIRST 
CRC2-THE 16-BIT CRC-16 COMPUTED ON THE DATA FIELD ONLY 


OPTION SWITCHES: 
Device oP 0U11,DL11 
CRC-KG11,SCRC 


REGISTER DEFINITIONS 
;BLOCK LOAD ADOR 
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000001 
e 


SSS 

Ooo 

o het es 
888 
£W 


=] 
Oo 
Oo 
tJ 
ua" 
o 


000400 


; 173400 
ro 012700 
173410 017776 


ste 010702 
il 73414 062702 


173416 000360 
173420 012703 
734 06 


173456 005700 


FOS 
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R1=%1 DEVICE CSR ADDRESS 
R2=%2 CRC CALC TEMP 

R3=%3 ; SOFTWARE CRC 

Ru=%4 ‘BLOCK CHAR COUNT 
RS=%S CRC CALC TEMP 

SP=%6 STACK ADDR 

PC=%7 ‘LOCATION COUNTER 

; LITERALS 

ésTADR=1 :STATION ADDR 
sSuR=177570 sSMITCH REGISTER ADDR 
S0LE=220 ‘DDCMP DLE CHARACTER 


THE STACK IS uBeD me Ae Mat 
STACK-e:FOR JSR TO 
STACK-4: TEMP FOR CRC CALCULATION 


START OF BOOT PROGRAM 
START1-DEVICE UNIT O-NORMAL CONFIGURATION 


STARTe-USE SWITCH REG AS DEVICE DISPLACEMENT 
I.E. #0-0,#1-10, #2-20 


.=173400 
START1: MOV (PC)+,RO : NON ZERO VALUE TO RO 
START2: CLR 0 CL 
RESET RESET sys MEM MGT, ETC... 
#17776, SP *STACK AT 4k-2 


: FIND THE DU-11 IN THE FLOATING ADDRESS SPACE 


MOV PC, Re CURRENT PC 
ADD #DEVTAB-. ,R2 


‘DEVICE TABLE ADDR 

MOV #6,R3 ; TRAP PS ADDR 

CLR (R3) ;CLEAR NEW PS 

MOV R2,-(R3) : TABLE RODR TO LOC 4 

SUB R3, (RB) ; SUB TO TRAP RTN 

DEC R3 LEAVE cnt 3 FOR LOOP 

MOV #160010,R1 ‘START SEARCH ADDR 
DEVLOP: TST (R1) ;IS DEVICE THERE 

MOVB  (Re),R4 ; DEVICE INCREMENT TO R3 

ADD RY, RI :UPDATE TO NEXT DEVICE 

INC Rl INCREMENT MODULO 

BIC RY, RI ‘CLEAR EXCES 

TST R ;TEST FOR DONE 

BNE DEVLOP Y : 

TST RO TEST SWITCH REG USE 


— 


¥e 
GO3 
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1438 003460 001002 ;173460 001002 BNE SNDREQ NO SWITCH REG 
1439 003462 063701 :173462 063701 ADD ae$SWR, RI ‘ADD SWR VALUE 
1340 003464 177570 :173464 177570 
1442 : SET UP DEVICE FOR OUTPUT 
1443 : : 
1444 173466 ENDREQ: 
1445 OO3466 012711 :173466 012711 MOV #6, (RL) ;DATA TERM RDY AND REQ TO SEND 
1446 003470 OD $17 seb 000006 
1447 003472 012761 3173472 012761 MOV #36000+SSYN,2(R1) ;SET SYNC REGISTER 
1448 003474 036226 ;173474 03622 
1449 003476 OO0002 ;173476 000002 
032711 317 L3: BIT #20000, (R1) TEST CLEAR TO SEND 
1451 003502 O?0000 ;173502 O20 
1452 003504 001775 :173504 001775 BEQ L3 :NOT YET 
1453 003506 O22121 :173506 O22le1 CMP (R1)+, (R1)+ ‘MOVE PTR TO XMIT TSR 
1454 003510 052711 +:173510 052711 BIS #20, (R1) TURN SEND ON 
1455 003512 000020 :173512 000020 
1457 : SEND SECONDARY PGM REQUEST MESSAGE 
1459 003514 010700 5173514 010700 ‘ MOV PC, RO CURRENT PC 
1480 003516 062700 :173516 062700 ADD #ROMSG-. , RO ‘REQUEST MSG ADDR 
1461 003520 000230 173235 
1462 003522 012704 ;173522 012704 MOV #RQMSGE-ROMSG,R4Y ;COUNT 
1463 0035°4 000026 :173524 000026 
1464 003526 112061 i 173586 112061 L4: MOVB (RO)+,2(R1) ;CHAR TO XMIT REGISTER 
1465 003530 O00002 ;1 oooo02 
1466 003532 105711 173532 105711 LS: TSTB (RL) sDONE YET ? 
1467 003534 100376 :173534 100376 BPL LS ?N 
1468 003536 005304 :173536 005304 DEC RY ‘DECREMENT COUNT 
1469 003540 001372 +:173540 001372 BNE L4 ONCE MORE 
1470 003542 O42711 3173542 O42711 BIC #20, (R1) ‘DROP SEND 
1471 003544 O00020 :173544 o00020 
ize 003546 O24141 3173546 024141 CMP -(R1),-(R1) :RESET PTR TO RCV CSR 
1474 : GET SECONDARY PROGRAM 
1475 : 
1476 173550 SE TPGM: 
1477 0035SO 042711 173880 042711 BIC #20, (R1) CLEAR SEARCH SYNC 
1478 003552 000020 :173S52 000020 
1479 003554 012711 i 1 73eeq 012711 MOV 8422, (RL) SET FOR CLEAR AND STRIP SYNC 
1480 003556 OO0422 :173556 000422 
1481 003560 005003 ;173560 005003 CLR R3 CLEAR CRC VALUE 
1483 ; GET MESSAGE HEADER AND CHECK IT 
1485 003562 012700 i 173568 012700 MOV #1,RO sLOAD HDR AT LOC. 1 
1486 003564 000001 ;173564 000001 
1487 003566 012704 3173566 012704 MOV #8. ,R4 ;BLOCK COUNT 
1488 003570 000010 ;173570 OOODI0 
1489 003572 004767 173572 0047 b? ISR PC, GET ;GET HEADER 


1490 003574 000060 ;173574 000060 
1491 003576 005703 ;173576 005703 TST R3 ;CHECK HEADER CRC 


HO3 
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1492 003600 001363 ;173600 001363 BNE GETPGM NO GOOD 
1493 003602 123727 ;173602 123727 CMPB #6, #SSTADR ‘CHECK FOR MY ADDR 
1494 003604 OO0006 ; 000006 
1435 003606 000001 ;173606 000001 
1496 003610 001357 ;173610 001357 BNE GETPGM :NOT MINE 
1497 003612 123727 ;1736le 123727 CMPB sod #1, #SDLE IS THIS A DLE MSG 
1498 003614 000001 ;173614 000001 
1499 003616 000220 ;173616 000220 
1500 003620 001322 3173620 001322 BNE SNDREQ :NO, ASK FOR ONE 
1$de : GET DATA BLOCK 
+] 
1504 003622 013704 ;173622 013704 MOV a#2,R4 ;DATA FIELD LENGTH 
1505 003624 o00002 ;17 oooo002 
1506 003626 042704 ;173626 042704 BIC #140000, R4 ;MASK OFF S,F BITS 
1507 003630 140000 ;17 140000 
1508 003632 122424 +:173632 122424 CMPB —s- (R4) +, (R4) + ;ADD 2 FOR CRC 
1509 003634 005000 ;173634 005000 CLR RO LOAD INTO LOCATION O 
1510 003636 004767 ;173636 004767 JSR PC,GET1 GET DATA BLOCK 
1511 003640 000014 ;173640 000014 
1512 003642 005703 :173642 005703 TST R3 ;CHECK DATA FIELD CRC 
1513 003644 001310 ;173644 001310 BNE SNDREQ oD 
1514 003646 105713 :173646 105713 TSTB = (R3) CHECK CODE IN Loc O 
1515 003650 001306 ;173650 001306 BNE SNDREQ :NOT PROGRAM 
1516 003652 000137 ;173652 000137 IMP 386 : TRANSFER TO SECONDARY PGM 
1517 003654 000006 :173654 000006 
1519 : GET A BLOCK AND COMPUTE CRC 
1520 : 
1521 : 173656 bet: 
1522 : 173656 GETi: 
1523 003656 105711 :173656 105711 TSTB ss (R21) ;IS DEVICE DONE YET 
1524 003660 100376 i 73660 100376 BPL GET : T 
1525 003662 042711 :173662 042711 BIC #S$STRIP,(R1) | ;NO STRIP SYNC 
1526 003664 OO0400 +;173664 000400 
1527 003666 116110 ;173666 116110 MOVB  2(R1), (RO) ;STORE IT 
1528 003670 O00002 :173670 Oo0002 
1530 : CRC CALCULATION ROUTINE 
1532 ; 120001 PoLY=120001 ;CRC-16 POLYNOMIAL 
1534 003672 012705 ;173672 012705 ’ MOV #8. ,RS ;BYTE LENGTH 
153S 003674 000010 ;173674 GO0010 
1536 003676 112002 ;173676 112002 MOVB  (RO)+,R2 sCHARACTER TO ADD TO CRC 
1537 003700 000241 +;173700 000241 CRCLOP: CLC ‘CLEAR CARRY 
1538 003702 006003 ;173702 006003 ROR R3 : SHIFT OLD PARTIAL 
1539 003704 103003 ;173704 103003 BCC L10 : IF CLEAR CHECK CHAR 
1540 003706 O06002 ;173706 006002 ROR Re :SHIFT CHARACTER 
1541 003710 103003 ;173710 103003 BCC Lil XO 
1542 003712 000410 i17371¢ 000410 BR Lie ‘NEXT BIT 
1543 003714 006002 ;173714 006002 L10: ROR Re : SHIFT CHARACTER 
1544 003716 103006 ;173716 103006 BCC T 


Lle :NE 
145 003720 012746 5173720 012746 LI: MOV #POLY,-(SP) :POLY fo. STACK 
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030242 
122243 
000002 


007407 


END. YC: 
003407 


3173720 120001 
3173 


173744 000207 


3173746 113226 
3173750 113226 
517375¢ 002220 


tip are 000400 
;173760 OSOOSS 
3173762 001010 


173764 000001 
173766 030242 


3173770 122243 
3173772 o00002 


Teed ooz4or 


; 173776 003407 
: 174000 


173400 


Lie: 


KOMSG: 


hopev: 


ROMSGE: 
DEVTAB: 


END: 


103 
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R3, (SP) 
#POLY,R3 


(SP)+,R3 
RS 
CRCLOP 
R4Y 

GET 

PC 


;NOT PARTIAL AND POLY 
;NOT POLY AND PARTIAL 


;POLY XOR_ PARTIAL 
sDECRENENT BIT COUNT 
;DECREMENT COUNT 
ONCE MORE 


SECONDARY PROGRAM REGEST MSG 
SSYN, SSYN, SSYN, SSYN 


. BYTE 


$OLE,4,0,0,0,1 
55,120 
10 


2 
S$STADR 
Sus 


OTE: 
D0 NOT SEPARATE THEM 


.EVEN 
CMPB 
RTI 
-BYTE 
-BYTE 
BYTE 


"BYTE 
END 


(R2)+,-(R3) 


7 
17 


7 
? 


START 1 


;REQ SEC PGM CODE 
DEVICE CODE 
ist ATION ADDR 


FOR STADR= 
NoDEV eseo DEVTAB an BE IN tals ORDER 


; INC PTR-DEC CNT 
;RETURN FROM TRAP 


Tati MSG-USE JUNK AS PADS 
;DH-11 


;0Q-11 
;DU-11 


JOQ3 
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1$8S 004000 P.YD: 

1586 re FOLLOWING a3 A DY 


1587 THE ROM PROGR 

1588 a IS HERE FOR COMPARISON TO THE 

1$89 “ACTUAL ROM AND FOR REP ere 

1S90 :BM873-YD KL10 (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 2(17) MACYI1 27(657) 18-DEC-74 11:59 PAGE 1 
13ah ;BM873-YD.P11 

193 : mts CODE IS TO BE BLASTED pyre PROMS ON Ne te BOARD. 
1594 TTEN BY DAVID M. ROSENBERG OCTO 
ieee i REGISTER RDEFINITIONS 

1597 ; 000000 R0=~0 err PURPOSE REGISTER p 
1598 ; 000001 R1=%1 ;GENERAL PURPOSE REGISTER 1 
1599 ; 000002 Re=%e ; GENERAL PURPOSE neetaren e 
1600 ; 000003 R3=%3 ; GENERAL REGISTER 3 
1601 ; 000004 R4Y=%4 GENERAL PURPOSE REGISTER 4 
1602 ; 00000S RS=%S GENERAL PURPOSE REGIST BR ?, 
1603 ; 000006 SP=%6 :STACK POINTER (REGISTER R 
1e0e ; 000007 PC=%7 ;PROGRAM COUNTER (REGISTER 27) 
1606 

te ;SYMBOL DEFINITIONS 

1609 ; 177776 PS=177776 ;PROCESSOR STATUS REGISTER 
1610 ; 177570 + SWR=177570 ;FRONT PANEL SWITCH REGISTER 
1611 ; 000000 PRO=0*40 ;PRIORITY LEVEL 0 

l6le ; OO004O PR1=1#40 ;PRIORITY LEVEL 1 

1613 ; 000100 PRe=2#40 ;PRIORITY LEVEL 2 

1614 ; 000140 PR3=3#40 ;PRIORITY LEVEL 3 

1615 ; 000200 PRY=4#40 ;PRIORITY LEVEL 4 

ie17 i Bobso Preseen :PRIORITY LEVEL & 

1618 ; Bobs40 pRpeee40 ;PRIORITY LEVEL 7 

1619 ; 000001 817T0=000001 

1620 ; 000002 81T1=00000e 

1621 ; 000004 BITe=000004 

1622 ; 000010 8113=000010 

1623 ; 000020 att =e 

1624 ; 000040 81TS=00004: 

1625 ; 000100 81T&=000100 

1626 ; 000200 81T7=00029° 

1627 ; 000400 Bt eae 

1628 ; 001000 8173=001000 

1629 ; 002002 w#1T10=002000 

1630 ; 004500 81T11=004000 

1631 ; 01f000 81T12=010000 

1632 ; 0¢.0000 817T13=0200 

1633 ; 040000 BA as ORn 

1634 ; 169000 81T1S=1000 
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wow 
Sea 
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ROMORG 


033727 
aa T4y 


- KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 2(17) MACY11 27(657) 18-DEC-74 11:59 
BUTTON #1 - BOOTSTRAP USING THE PDP-11 SWITCH REGISTER 
= 173000 SET ROM ORIGIN TO 773000 
. =ROMORG *BMB73-YD OCCUPIES 773000-773777 
BUTONI: BIT aeSWR, #BITO 1S RIGHTMOST BIT ON? 
BNE LOWBIT ;IF THE BIT IS ON, BRANCH 
MOV DNSWR, PC ‘JUMP TO THE ADDRESS IN THE SWITCH REGISTER 
;WITHOUT HAVING TOUCHED ANY OF RO - R6 
BUTON3: MOVB (PC), R4 1 INDICATES THAT BUTTON #3 WAS PRESSED 
CLR RI en “UNIT NUMBER TO ZERO 
CLR RS CLEAR “LOGICAL SWITCH REGISTER” 
BR TCBOOT ‘00 A DEFAULT BOOT STRAP FROM DECTAPE 
.WORD  ROMORG, PR7 
LOWBIT: MOV aeSWR, RI Rl IS A COPY OF THE SWITCH REGISTER 
ASLB sR sLEFT-ALIGN SPEED FIELD IN RIGHT BYTE 
CMPB =s- #16 #20, R1 1S THE SPEED 16 OR 17? 
BLOS _UNITNO IF SPEED IS 16 oR 17, BRANCH 
CNPB  0s«#3#20, RL IS THE SPEED 0, 1, OR 2? 
ITNO F THE DIS RANCH 
ae ft Seed was seis, g,! ONT? NUMBER’ SO 
UNITNO: SWAB & UNIT NUMBER TO BITS 0-2 


dS RE I REY 178 of Ri, C1, THE POP-11 FRONT PANEL 


; SWITCH REGISTER, AND THEN JUMP INTO’ THE ROM CODE AT THIS POINT. 


arc #tC7,R1 ; ISOLATE UNIT NUMBER IN R1 

MOV asSWR,RS ;RS IS NOW THE “LOGICAL SWITCH REGISTER” 

CLR RY ;R4 = 0 INDICATES THAT BUTTON #1 WAS PRESSE 
TSTB = RS: ;SHOULD WE BOOT FROM DECTAPE oe RH11/RPO4? 

BMI RPBOOT ;IF BIT 7 WAS ONE, BRANCH OFF TO THE RHI1/RPOY 


sOTHERWISE, FALL THROUGH TO THE DECTAPE 


PAGE 3 


LO3 
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1683 ;BM873-YD - KL1O (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 2(17) MACY11 27(657) 18-DEC-74 11:59 PAGE 4 
1684 *BM873-YD.P11  DECTAPE BOOTSTRAP AND DUMP ROUTINES 

1686 

1687 : 177344 TCWC os 177344 :TC11 DECTAPE WORD COUNT REGISTER 

1688 : 000001 TCGO = 1 ‘TC11 "GO" BIT 

1689 : 000002 TCRNUM = 1*2 *TC1I “READ BLOCK NUMBER® FUNCTION 

1690 : 000004 TCREAD = Dee ?TC11 “READ DATA” FUNCTION 

1691 : 000014 TCWRIT = 6¥2 *TC11 “WRITE DATA” FUNCTION 

1692 : 004000 TCREV = 4000 "MOVE DECTAPE IN REVERSE DIRECTION 

1694 BOOTSTRAP (FROM DECTAPE) PARAMETERS 

1695 : oo00400 TC = in2ase sWORD COUNT FOR THE SECONDARY BOOTSTRAP 

1696 000000 TCBEND = 0 ‘WHICH END OF THE DECTAPE (0 = FRONT; 1 = BACK) 
1698 DUMP (TO DECTAPE) PARAMETERS 

1699 07 TCDWDC = \p28672 sHORD COUNT FOR THE CORE DUMP TO DECTAPE 

1700 : 000001 TCDEND = 1 WHICH END OF THE DECTAPE (0 = FRONT; 1 = BACK) 
1702 - GENERAL aes AND DUMP) DECTAPE PARAMETER 

1703 . 000024 TCRTRY = to20 ;NUMBER OF RETRIES IN CASE OF ERROR 

1705 004074 012700 ;173074 012700 TCBOOT: MOV #<TCBEND*TCREV>! TCREAD!TCGO,RO ;SET UP DATA-TRANSFER COMMAND 
1706 004076 OO000S ;173076 O00 ; 

1707 OO4100 012702 ;173100 012702 MOV #-TCBWDC, R2 SET WORD COUNT TO 256 (512 BYTES) 

1708 004102 177400 3173102 177400 

1709 OO4104 012703 3173104 012703 MOV #<<1-TCBEND> #TCREV> ! TCRNUM! TCGO, R3 ;SET UP POSITION COMMAND 
1710 004106 004003 5173108 004003 

1711 OO4110 000301 173110 000301 SWwAB.COtsé@RR*LL ;BRING UNIT NUMBER INTO THE LEFT BYTE 

1712 OO4112 050103 :173112 050103 BIS Rl, R32, “PUT UNIT NUMBER INTO POSITIONING COMMAND 
1713 OO4114 050100 ;173114 050100 BIS R1'RO ‘PUT UNIT NUMBER INTO DATA-TRANSFER COMMAND 
1714 OO4116 012701 3173116 012701 TCSTRT: MO #TCWC, RI *R1 NOW POINTS TO TC11 WORD COUNT REGISTER 
1715 O04120 177344 3173120 177344 

1716 OO4122 012706 3173122 012706 TCLOOP: MOV #TCRTRY, SP s INITIALIZE RETRY COUNT IN SP 

1717 004124 000024 3173124 o00024 

1718 004126 005705 ;173126 00570S TCBGIN: TST RS ;TEST “INDEFINITE RETRY” BIT 

1719 004130 100404 3173130 100404 BMI TCRSET “BRANCH IF ” NOEF INTE RETRY” IS ENABLED 
1720 004132 005306 :173132 005306 DEC *DECREMENT RETRY COUN 

1721 004134 100002 :173134 100002 BPL TCRSET :BR NCH IF RETRY COUNT NOT EXHAUSTED 

1722 004136 O00000 ;173136 000000 ‘TCHALT: HALT RETRY COUNT, Is EXHAUSTED FOR DECTAPE OPERATION 
1723 OO4140 000770 3173140 000770 BR TCLOOP iE PRE ONTINUE”, SO T 

1724 004142 OO000S ;173142 OO000S TCRSET: RESET op anvTH he IN PROGRESS FOR NEXT TRY 
1725 OO4144 010341 31731449 010341 MOV R3, -(R1) iA ITIATE DEC BPE PO POSIONING OPERATION 

1726 OO4146 005711 3173146 005711 TCWAIT: TST (RI) ‘TEST FOR AN 

1727 00410 100376 ;173150 100376 BPL TCWAIT ; LOOP UNTIL aN “ERROR” IS DETECTED 

1728 152 005721 3173152 005721 TS (R1)+ sMAKE RI POINT TO THE WORD COUNT REGISTER 
1723 OO4154 005761 3173154 005761 TST -4(R1) 1S THE ERROR “ENDZONE 

1730 004156 177774 3173156 177774 

1731 OO4160 100362 3173160 100362 BPL TCBGIN ;IF NOT, BRANCH BACK TO TRY AGAIN 

1732 OO4162 Ol0211 3173162 O10e1! MOV Re, (RIL) *SET UP’ WORD COUNT FOR DATA-TRANSFER 

1733 OO4164 O10041 3173164 010041 MOV RO’ -(R1) sfTiOTS I THE DATA-TRANSFER OPERATION 

1734 OO4166 105711 :173166 105711 TCDONE: TSTB (Ri) TEST “DONE” 

1735 004170 100376 ;173170 100376 BPL TCDONE ing UNTIL THE “DONE” BIT SETS 

1736 004172 005721 :173172 005721 TST (R1)+ WAS AN “ERROR” DETECTED? 
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0 
000776 ;17321 
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000776 


GOTOO: 


TCSTOP: 


TCBGIN 

-(R1) 

(R1) 

#TCREAD! TCGO,RO ; 


TCSTOP 
a(PC)+ 


TCSTOP 


BRANCH BACK AND TRY AGAIN 
‘MAKE eh POINT TO THE COMMAND REGISTER 
*STOP ALL DECTAPE MOTION 
“WAS THT A "NORMAL READ” OPERATION? 


iF or GO_STOP 
TO PDP-11 LOCATION ZERO 

+ UCCESSFUL COMPLETION OF A “NON-READ” OPERATION 

*S0 THAT PRESSING “CONTINUE” WON’T GO ANYWHERE 


NO3 
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1746 ;BM873-YD - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 2(17) MACYL1 27(657) 18-DEC-74 11:59 PAGE S 
eat *BM873-YD.P11 DECTAPE BOOTSTRAP AND DUMP ROUTINES 

1749 004216 010037 ;173216 010037 TCDUMP: MOV RO, J#ROTOR7 ;SAVE RO IN PDP-11 MEMORY LOCATION 40 

1750 004220 O00040 ;173220 O00040 

17el OO4222 00402 ;173222 o00402 aR TCCONT sBRANCH AROUND REQUIRED INTERRUPT VECTOR 

1753 004224 173000 ;173224 173000 .WORD  ROMORG,PR7 

1764 004226 000340 3173226 000340 

1755 004230 010700 ;173230 010700 TCCONT: MOV PC, RO ;USE_RO_FOR A SUBROUTINE RETURN RDORESS 

1757 O04e32 10 3173232 000410 BR REGSAV GO TO THE “REGISTER SAVING® SUBROUT INE 

1758 O04234 012700 3173234 012700 MOV TCTCDENDETCREV> ! FCHRIT! TEGO, RO ;SET UP (WRITE) TRANSFER COMMAND 
1759 004236 S 3173236 OO4015 

1760 OO04240 012702 ;173240 012702 MOV #-TCDWDC, Re ;SET WORD-COUNT TO 28K WORDS 

1761 OO4e42 110000 ;173e42 110000 

1762 OO42844 012703 3173244 012703 MOV #<<1-TCDEND> ¥TCREV> ! TCRNUM! TCGO, R3 ;SET UP POSITION COMMAND 
1763 OO42% 000003 317324 000003 

1764 004250 005005 ;173250 005005 CLR RS ;CLEAR “INDEFINITE RETRY” BIT 

1765 004252 000721 ;173252 000721 BR TCSTRT :BRANCH INTO DECTAPE ROUTINE 

1767 

1769 

1770 ; THE FOLLOWING SUBROUTINE IS USED TO SAVE THE PDP-11 GENERAL REGISTERS 
1771 : IN PDP-11 MEMORY LOCATIONS 40-57. 

1773 ; THE CALLING SEQUENCE IS AS FOLLOWS: MOV RO, J#ROTOR7 

1774 : MOV PC’ RO 

1775 : & REGSAV 

1776 : HERE 


004254 010137 ;173254 010137 REGSAV: MOV R1,@WROTOR7+2  ;SAVE Rl IN MEMOTY LOCATION 42 
004, *1 $e ean ‘ : 


1 

1 256 O00042 317 2 | 

1780 Oovieeo 012701 i 173660 O1e701 MOV #ROTOR7+4,R1 § ;R1 NOW POINTS TO MEMORY LOCATION 44 
1782 O04264 ayaa : 173264 nee R2,(R1)+ . sSAVE R2 IN MEMORY LOCATION 44 
1783 Oovieb6 010321 5 173e66 10321 MOV R3,(RI)+ Qj R3 IN MEMORY LOCATION 46 
1784 004 10421 3173270 010421 RY; (R1)+ *SAVE RY IN MEMORY LOCATION 59 
1785 004272 O10S21 3173272 O010Se1 MOV RS’ (R1)+ >SAVE RS IN MEMORY LOCATION S2 
1786 004274 O10621 3173274 O10be1 SP; (R1)+ : MEMORY LOCATION 54 
1787 004 b100e4 :1 3676 g100e RO; (R1)+ : N HENORY OCATION 56 
1788 604300 000160 ;17 0001 IMP 2(RO) + *RETURN TO THE CALLING ROUTINE 
1790 aE | eaen 
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;BM873-YD.P11 


111704 ; 


005005 
00 


176700 
o0000e 


000021 
000061 
000071 


900000 
00 


000000 
070000 
000631 


000015 
000010 
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RH11/RPO4 BOOTSTRAP AND DUMP ROUTINES 


RPPRST 
RPWRIT 
RPREAD 


RPBFMT 
RPBWDC 
RPBCYL 


RPOCYL 


RPOTRK 
RPDSCT 


111704 
005005 
005001 


012700 
034 


012701 
176709 


BUTONe: 


RPBOOT: 


RPSTRT: 


fete ;ADDRESS OF et CONTROL & T Regist ere 1 


6 t OFFSE TO RHIIZRP 4 TRACK & ecto So rcre REGISTER 
10 j OFFSET TO RH11/RPOY CONTROL _& STATUS REGISTER 2 

le ;OFFSET TO RH11/RPOY DRIVE STATUS 

3e OFFSET TO RH11/RPO4 OFFSET REGISTER (CONTAINING FMT22) 
34 OFFSET TO RH11/RPO4 DESIRED CYLINDER REGISTER 

BIT14 ;"TRANSFER ERROR” BIT IN RPCS1 

BIT13 ;"MASSBUS CONTROL BUS PARITY ERROR” BIT IN RPCS1 

BIT11 ;"DRIVE AVAILABLE” BIT IN RPCS1 

BITIS ;"ATTENTION ACTIVE” BIT IN RPDS 

BIT14 "COMPOSITE ERROR” BIT IN RPDS 

BIT12 ;"FMT22” (16-BIT WORDS) BIT IN RPOF 

el ;READ-IN PRESET 

61 : WRITE ll 

71 sREAD DAT 

0 ;BOOTSTRAP FORMAT (0 = 18-BIT WORDS: 16-BIT WORDS) 
tD2S6  ;WORD COUNT FOR a3 SECONDARY BOOTSTRAP FROM THE RPO4 
tD406 3 BOOTS INDER NUMBER 


0 
;BOOTSTRAP SECTOR NUMBER 


;DUMP FORMAT (O = 18-BIT WORDS; 2 = ies BIT WORDS) 
ee 3 ;WORD COUNT FOR THE sone DUMP to THE RPOY 


oO oo 
Oo 


PAGE 6 


tD YLINDER NUMBE 
+ THE Fol LOW WING TWO ASSIGNMENTS PUT THE DUMP AT THE ee po OF THE CYLINDER 


$D18-<<RPDWDC-1>7<<tD20+RPDFMT>*tD256>> ;DUMP TRAC 
tD19+RPDFMT-< < <RPDWOC-1> tD2S6>- a CIDI@REDTRK> #< tDEO+RPDFNT > > 


ty (PC) ,RY ;R4 = S INDICATES THAT BUTTON #2 WAS PRESSED 
CLR RS : CLEAR "LOGICAL SWITCH REGISTER” 

CLR Rl :SET UNIT NUMBER TO ZERO 

MOV #<RPREAD#409> ! <RPBSCT#10> , RO 

MOV #-RPBWDC , Re 

MOV #<RPBFMT*4O000> ! <RPBTRK*2000> !RPBCYL,R3 


;PUT THE UNIT NUMBER INTO RO 


BIS R1,RO 
MOV #RPCS1,R1 ;SET R1 TO THE LOWEST ADDRESS USED BY THE RH11 


CO4 
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1842 ;BM873-YD ~ KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 2(17) MACY11 27(657) 18-DEC-74 11:59 PAGE 7 
1843 :BNB73-YD.P11  RH11/RPOY BOOTSTRAP AND DUMP ROUTINES 

1845 004334 OO0000S ;173334 O0000S RPLOOP: RESET ‘RESET IN CASE OF RETRY 

184 004336 010006 ; 010006 MOV RO, SP ‘GET THE UNIT NUMBER INTO SP 

1847 OO4340 042706 3173340 042706 BIC #107, SP ‘ISOLATE THE UNIT NUMBER 

1848 OO4342 177770 3173342 177770 

1849 004344 010661 ;173344 010661 MOV SP,RPCS2(R1)  ; TELL THE RH11 THE UNIT NUMBER 

1850 004346 000010 3173346 000010 

1851 O043S0 032711 ;173350 032711 BIT #RPDVA, (R1) TRY TO SEIZE THIS RPO4 UNIT 

1852 004352 OO4O00 ; 4000 

1853 004354 001767 3173354 001767 BEQ RPLOOP ‘BRANCH IF WE HAVEN’T SEIZED IT 

1854 004356 012721 ;173356 012721 MOV #RPPRST,(R1)+ $D0 A "READ-IN PRESET” FUNCTION 

1855 004360 000021 3173360 000021 

1856 OO04362 010306 3173362 010306 MOV R3, SP :GET THE CYLINDER NUMBER INTO SP 

1857 004364 042706 3173364 042706 BIC #101777, SP ‘ISOLATE THE CYLINDER NUMBER 

1858 004366 176000 ;173366 176000 

1859 004370 010661 ;173370 010661 MOV SP,RPDC-2(R1)  ;TELL THE RPOY THE CYLINDER NUMBER 

1860 004372 000032 ;17337e 000032 

1861 004374 010306 ;173374 010306 MOV R3, SP ‘GET THE FORMAT BIT AND TRACK NUMBER INTO SP 
1862 004376 100003 ;173376 100003 BPL RPCONT "BRANCH IF 20 SECTOR (18-BIT WORDS) FORMAT 
1863 OO4400 012761 3173400 Ole761 MOV #RPFMT,RPOF-2(R1) ;ESTABLISH 22 SECTOR (16-BIT WORDS) FORMAT 
1864 OO04402 010000 :173402 010000 

1865 OO4404 000030 3173404 

1866 OO44O6 006206 3173406 O06206 RPCONT: ASR sp RIGHT ALIGN THE TRACK 

1857 OO4410 006206 3173410 006206 ASR SP : NUMBER IN THE LEFT BYTE 
1868 OO4412 105006 ;17341e 105006 CLRB SP ‘CLEAR THE RIGHT BYTE 

1869 OO44i4 150006 3173414 150006 BISB RO, SP ‘PUT THE SECTOR NUMBER INTO THE RIGHT BYTE 
1870 OO4416 106006 ;173416 106006 RORB SP ‘RIGHT ALIGN T 

1871 OO4420 106206 3173420 106206 ASRB SP : SECTOR NUMBER IN 

1872 OO4W422 106206 3173422 106206 ASRB ss SP : THE RIGHT BYTE 
1873 OO4424 010661 3173424 010661 MOV SP,RPDA-2(R1)  ;TELL THE RH11 THE TRACK AND SECTOR NUMBERS 
1874 OO4426 OOO004 ;173426 

1875 OO4430 O1021i 3173430 010211 MOV R2, (RL) sTELL_THE RH11 THE WORD COUNT 

1876 004432 010006 ;173432 010006 MOV RO, SP ‘GET THE FUNCTION CODE INTO SP 

1877 OO4434 105006 3173434 105006 CLRB ss SP CLEAR THE RIGHT BYTE 

1878 004436 000306 ;173436 000306 SWAB 6s SP ‘RIGHT ALIGN THE FUNCTION CODE 

1879 OO4W44O O10641 3173440 010641 MOV SP,-(R1) ‘TELL THE RPOY THE FUNCTION CODE 

1880 OO4442 105711 3173442 105711 RPDONE: TSTB (Ri) TEST FOR RH11 “READY” 

1881 OO4444 100376 3173444 100376 BPL RPDONE ‘LOOP, WAITING FOR RH11 “READY” 

1882 032711 3173446 032711 BIT BRPTRE!RPMCPE, (RL) ; TEST FOR RH11 ERROR BITS 

1883 OO44SO O60000 ;1734S0 000 

1884 004452 001330 ;17345e 001330 BNE RPLOOP -IF ERROR, BRANCH BACK FOR RETRY 

1885 004454 032761 ;1734S4 032761 . BIT #RPATA!RPERR,RPDS(R1) ;TEST FOR RPOY ERROR BITS 

1886 140000 :173456 140000 

1887 OO4460 O0001e ;173460 000012 

1888 OO4462 001324 3173462 001324 BNE RPLOOP s IF ERROR, BRANCH BACK FOR RETRY 

1889 OO4464 O22706 3173464 022706 CMP #RPREAD , SP :WAS THE FUNCTION A "NORMAL READ”? 

1890 004466 000071 ;173466 000071 

1891 001250 ;173470 BNE TCSTOP IF NOT, BRANCH TO A HALT INSTRUCTION 

1892 004472 022737 :173472 022737 CMP #000240, 280 ‘WAS "OOO240" READ INTO LOCATION ZERO? 

1893 474 Q00240 3173474 000240 

1894 004476 000000 ;173476 000000 

1895 001643 3173500 001643 BEG GOTOD sIF SO, BRANCH TO LOCATION ZERO 
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000000 
000641 


010037 
40 


000676 


RPDUMP : 


HALT 
BR 


;"000240" WAS NOT READ INTO LOCATION ZERO 


GOTOO “BRANCH TO LOCATION ZERO 

RO, 2#ROTOR? ;SAVE RO IN PDP-11 MEMORY LOCATION “ROTOR7™ 
PC, RO ;USE RO FOR A SUBROUTINE RETURN ADDRESS 
REGSAV TO THE “REGISTER SAVING” SUBROUTINE 
#<RPWRIT#4OO) ! <RPDSCT#10> . RO 

#-RPDWDC, R2 

#<RPDFMT*4O000> ! <RPDTRK*2000) !RPDCYL,R3 

RPSTRT 
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foie ;BM873-YD - KL1O (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 2(17) MACY11 27(657) 18-DEC-74 11:59 PAGE 8B 


‘aia :BM873-YD.P11 OTE2O DEVICE REGISTER AND BIT DEFINITIONS 

1915 

1916 ; 174400 DTEBAS=174400 ;BASE OF (FIRST) DTE20 DEVICE REGISTER BLOCK 

1917 : 000040 DTESIZ=000040 ;SPACING BETWEEN CONSECUTIVE DTE20’S 

43ig ; 000004 OTEMAX=4 ;MAXIMUM NUMBER OF DTE20’S ON ONE PDP-11 

1920 

1321 ;OFFSETS FROM THE BASE OF THE DTE20 DEVICE REGISTER BLOCK 
1a55 ;TO SPECIFIC 10/11 INTERFACE RAM LOCATIONS AND REGISTERS. 
1924 ; THE FIRST le 1 ale ARE NOT INITIALIZED BY “INIT” (BECAUSE THEY ARE IN RAMS 
1925 ; 000000 DLYCNT=00 RELAY S (ADDRESS XXxXx00) 

1926 : 000002 DEXWD3=0e ; DE TOR. EXAMINE WORD 3 (ADDRESS XXxXx02) 

1927 ; 000004 DEXWDe=04 ;DEPOSIT OR EXAMINE WORD 2 (ADDRESS XXXxX04) 

1928 ; 000006 DEXWD1=06 ;D IT OR EXAMINE WORD 1 (ADDRESS XXXX06) 

1929 ; 000010 TENAD1=10 ;10 ESS WORD 1 F SS XXXX10) 

1930 ; 00001e TENADe=le ;10 ADDRESS WORD 2 FOR DEX (ADDRESS XXXX12) 

1931 ; 000014 TOLOBC=14 310 wl COUNT ( SS XXXX14) 

1932 ; 000016 TO11BC=16 31011 OUNT (ADDRESS XXXX16) 

1933 ; 000020 TO1OAD=20 :TO10 PUPIL MEMORY ADDRESS ADDRESS 20) 

1934 ; 000022 TO011AD=ee TOLL PDP11 MEMORY ADDRESS ADDRESS 2) 

1935 ; 000024 TO1ODT=e4 31010 POP11 WOR (ADDRESS XXXX24) 

i ; 000026 TO11DT=26 37011 POP11 DATA WORD (ADDRESS XXXX26) 

1938 ; THE LAST 4 REGISTERS a INITIALIZED BY “INIT” (BECAUSE THEY ARE IN FLIP-FLOPS 
1939 ; 000030 DIAG1=30 1 RIAN! IC WORD 1 (ADDRESS XXXxX30) 

1940 ; 000032 DIAGe=3e ;DIAGNOSTIC WORD 2 (ADDRESS XXXX32) 

1941 ; 000034 STATUS=34 10/11 INTERFACE STATUS WORD (ADDRESS XXXX34) 

1au5 ; 000036 DIAG3=36 DIAGNOSTIC WORD 3 (ADDRESS XXXX36) 

1944 - 

1gur THE FOLLOWING ARE THE ADDRESSES OF THE DTE20 INTERRUPT VECTORS 
1947 ; 00774 DTEIV1=774 ; INTERRUPT VECTOR FOR DTE2O #1 

1948 ; 000770 OTEIVe=770 INTERRUPT VECTOR FOR DTE2O #2 

1949 ; 000764 DTEIV3=764 ; INTERRUPT VECTOR FOR DTECO #3 

ier ; 000760 DOTEIV4=760 ; INTERRUPT VECTOR FOR DTECO #4 

1952 

123 BIT ASSIGNMENTS FOR VARIOUS DTE20 REGISTERS USED BY THIS ROM CODE 
1955 

ia ;BIT ASSIGNMENTS FOR TO1OBC 

iaee ; 100000 INTI1=BITIS ;SET DONE AND INTERRUPT BOTH 10 AND 11 

ae ;BIT ASSIGNMENTS FOR TO118C 

1962 ; 00000 INT1O=BITIS ;SET DONE AND He ll BOTH 10 AND 11 

1963 $ 040000 2ST )P=BIT14 ;STOP ON NULL (ZERO) CHARACTER 

1964 ; 020090 TO1IBM=BIT1 ;BYTE SIZE FOR TO-11 BYTE TRANSFERS 
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; 000100 


: 000020 
; 000004 
: 000002 


: 000020 
: 000002 
4 000001 


Ssesssea 5 
8 S a 
8 


000020 
000010 
000004 
000002 
000001 
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- KL1O (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 2(17) 


MACY11 27(657) 18-DEC-74 11:59 


DTE20 DEVICE REGISTER AND BIT DEFINITIONS 


DRESET=BIT6 


DUPE=BIT4 
DURE=B1Te 
NUPE=BIT1 


COD=BIT4 
CNUPE=BIT1 
TOLOBM=BITO 


EBU Te 
ERR11S=B1T1 


DE 
TOLIER=BITI 
INTSON=BITO 


;BIT ASSIGNMENTS FOR DIAG (WRITE) 
;PERFORM DIAGNOSTIC CLEAR 


-BIT ASSIGNMENTS FOR DIAG3 (READ) 
;DATO UNIBUS PARITY ERROR 

:DATO UNIBUS RECEIVE ERROR 

*NPR UNIBUS PARITY ERROR 


;BIT ASSIGNMENTS FOR DIAG3 (WRITE) 
;CLEAR DUPE AND pURE ERROR FLAGS 
;CLEAR NUPE ERROR FLAG 
;BYTE SIZE FOR 10-10 BYTE TRANSFER 


;BIT ASSIGNMENTS FOR STATUS (WRITE) 


;SET TO10 DONE 

s CLEAR Hw A sto 

eran RTOLO ER ROR 

RING THE POP-11'S DOORBELL (INTERRUPTS THE -11) 
;STOP RINGING THE POP-11' ap a 

;CLEAR -11 MEMORY PARITY 

;RING_ THE POP-10’S DOORBELL (INTERRUPTS THE -10) 
39ET TO11 DONE 

;CLEAR TO11 DONE 

j ENABLE DTE20 Tee TS TO THE -11 

:CLEAR “EBUS PARITY ERROR™ 

:DI THE POP-11 INTERUPTS 


E 
ie TSTT ERE PARITY ERROR” 
CLEAR TO11 ERROR 


;BIT ASSIGNMENTS FOR STATUS (READ) 


; 1010 DONE 
;T0 10 ERROR (NPR Ue gUT OR BUS ERROR) 
i RAM WORD READ IS ALL 
THE POP11’°S DOORBELL IS RINGING 
‘DEPostT OR EXAMINE W 
ARITY ERROR WITHIN PDP=11 MEMORY 
4 = THE POP-10’S DOORBELL IS RINGING 


11 D 
te BUFFER SELECT 
;NULL ST 


L 
;EBU ore ly y Serer Q é 
H S “RESTRICTED 
‘DEPOSTT OR. i DONE 
;T0_11 ERROR ( TIMEOUT OR BUS ERROR) 
iD TE20 INTERRUPTS (TO THE -11) ARE ENABLED 


GO4 
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2019 ;BM873-YD - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 2(17) MACY11 27(657) 18-DEC-74 11:59 PAGE 1 
e020 :BM873-YD.P11 PROCEDURE BY WHICH THE PDP-10 BOOTSTRAPS AND/OR DUMPS THE PDP-11 

2022 

2023 

2024 

see 

2027 THE FOLLOWING IS THE PROCEDURE WHICH THE KLIO EXECUTES IN ORDER 

2028 TO DUMP AND/OR BOOTSTRAP THE PDP-11 THROUGH THE DTEcO: 

2030 

2031 1. CLEAR THE DTE20 AND INITIATE A BM873 BUTTON #4 BOOTSTRAP OPERATION 
2032 ONO [SRIIB!CLIIPT'CLTO11!CLTO10!PILDEN) 

2034 2. WAIT TO SEE PDP-11 POWER FAIL (AC LOW = TRUE) - CONI [DEAD11) = 1 
2036 3. WAIT TO SEE PDP-11 POWER RECOVER (AC LOW = FALSE) - CONI [DEAD11] = 0 
2038 4. WAIT AT LEAST ANOTHER 150 MILLISECONDS AND THEN CLEAR THE RELOAD -!1 BUTTON 
2033 CONO [CR11B] 

gu S. SET BYTE COUNTER TO A SPECIAL CODE (1365 OCTAL) - DATAO [1365] 
e043 &. RING PDP-11'S DOORBELL - CONO[TO11DB) 

2045 7. WAIT UNTIL “-10 RINGING -11’S DOORBELL” IS TURNED OFF BY THE -11 

e04e (1.£. UNTIL  CONI(T011DB] BECOMES ZERO). 

2048 8. ENABLE THE DTE20 TO USE PI 0 INTERRUPTS 

2048 (I.E. SET CONOLPILDEN!PIOENB)). 

2051 9. SET UP THE TO-10 BYTE POINTER (IN THE EPT) FOR THE FIRST 3.5K. 

2053 10. SET UP THE BYTE COUNTER FOR THE FIRST 3. SK, INDICATING 

goes “INTERRUPT -10 ONLY” paTao 11000) 

20st 11. WAIT FOR “TO-10 DONE” OR “TO-10 ERROR” -  CONI [TOLODN!TOIOER) 
2058 12. NOTE WHETHER THERE WAS AN ERROR (CONI [TO1ODER)) AND THEN TURN OFF 
3053 TOIODN AND TOIOER -  CONO [CLTO10). IF ERROR, GO TO STEP 17. 
206} 13. IF END OF 28K, GO TO STEP 17. 

2063 14. SET UP TO-10 BYTE POINTER (IN THE EPT) FOR THE NEXT 3.5K. 

2065 15. SET UP THE BYTE COUNTER FOR THE NEXT 3.5K INDICATING 

2066 “INTERRUPT -10 ONLY Conrad (19001) UNLESS THIS IS THE 

2067 LAST 3.5K (OF 28K WHICH CASE INDICATE “INTERRUPT 

gee BOTH PROCESSORS” {batnO {T01018! 1000)). 

2070 16. GO TO STEP 11. 

sort 6. GO TO STEP 11 


HO4 
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2073 ;BM873-YD KL10 (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 2(17) _ MACYL1 27(657) 18-DEC-74 11:59 PAGE 1 
e074 :BM873-YD.P11 PROCEDURE BY WHICH THE PDP-10 BOOTSTRAPS AND/OR DUMPS THE PDP-11 

2076 

2077 17. SET UP_TO-11 BYTE POINTER (IN THE EPT) FOR “PDP-11 BOOTSTRAP”. 
2078 NOTE THAT THE FIRST WORD OF THIS “PDP-11 BOOTSTRAP” MUST 

2073 BE THE BIT PATTERN O00240 (A PDP-11 NOP INSTRUCTION). 

2081 18. RING THE PDP-11’S DOORBELL - CONO [T0110B) 

2083 19. WAIT FOR EITHER T011DB TO GO OFF (CONT TO1 108) = 0), 

2084 OR TO1ODB TO COME ON (CONI[TO1ODB) = 

2086 20. IF NO ERROR WAS NOTED IN STEP 12, TO11D8 SHOULD GO OFF 

2087 (TOLODB COMING ON INDICATES A MASSIVE SCREWUP). 

2088 iF AN ERROR WAS NOTED IN ESP l2, TO110B GOING OFF INDICATES 
2089 THAT THE ERROR WAS “NON-FATAL” (AON- M OR - ORY 

2090 FAR RITY ) AND THE -11 IS PROCEEDING. Tolopg COMING ON INDICATES 
2091 THE ERROR WAS “FATAL” AND THE -11 IS HALTED AT LOCATION 173714. 
2032 In Tals LATTER CASE THE -10 MUST Rest aT FROM STEP 

2094 21. IF TOLIDB WENT OFF, WAIT FOR “TO-11 DONE” OR “TO-11 ERROR” 

2036 = CONI [TOLIDN! TOLER) 

2037 22. NOTE WHETHER THERE WAS AN ERROR -  CONI [TOLJER) 

2099 23. TURN OFF TOLIDN AND TOLER AND RING THE POP-11’S DOORBELL 

2100 CONO [T0i10B!CLTO11) 


oO 
_ 


24. WAIT FOR EITHER TO11DB 10 GO OFF (CONI{TO110B) = 0), 
OR TOLODB TO COME ON (CONI[TO10DB) = 1). 


2S. 101108 GOING OFF INDICATES THAT THE POP-11 FOUND NO ERRORS 
AND IS TRANSFERRING CONTROL TO THE CODE WHICH WAS JUST 
RECEIVED FROM THE -10. IN THIS CASE THE -10 SHOULD START 
FOLLOWING THE PROTOCOL OF THIS CODE. 


BOVRM Ear 


turvrururururourvrurururvururururulrruru 
ee ee ee en be ee 


10 26. TOLODB COMING ON INDICATES THAT THE PDP-11 HAS FOUND AN 
11 RROR (OR THAT THE FIRST WORD TRANSMITTED WASN’T THE 

12 BIT PATTERN Aooz4o) AND THE PDP-11 IS HALTED AT LOCATION 173766. 
13 IN THIS CASE THE -10 MUST RESTART FROM STEP 1. 

1s 

16 

17 

18 

19 


104 
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2120 ;BM873-YD - KLIO (PDP=11) 256 WORD BOOTSTRAP ROM VERSION 2(17) MACY11 27(657) 18-DEC-74 11:59 PAGE 1 
ele! 'BMB73-YD.P11 BUTTON #4 - BOOTSTRAP INITIATED BY THE PDP-10 (THROUGH DTEeO) 

2123 

2124 : 000130 OTECOR = 130 CORE ADDRESS INTO WHICH TO STORE DTE20 REGS. 

2125 : 000014 DTEREG = tDl2 "NUMBER OF DTE20 REGISTERS TO STORE 

2126 000400 OTEWOC = +0256 ‘WORD COUNT FOR SECONDARY BOOTSTRAP FROM THE -10 
2127 : ENTER HERE WHEN THE OTECO PRESSES BUTTON #4 (BOOTSTRAP INITIATED 
2128 : BY THE PDP-10, THROUGH THE DTE2O) 

2129 004534 010037 ;173534 010037 BUTONY: MOV RO, J#ROTOR? SAVE RO IN PDP-11 MEMORY LOCATION “ROTOR7™ 
2130 004536 OO0040 ;173536 OO0040 

2131 004540 010700 ;173540 010700 MOV PC, RO sUSE_RO_FOR A SUBROUTINE RETURN ADDRESS 
2132 o04s4e 44 3173542 OO0b44 R REGSAV GO TO THE “REGISTER SAVING” SUBROUTINE 
2133 OoOo4s44 > 173544 CLR : = 

2134 004546 012501 ;173546 012501 MOV (RS)+,R1 SAVE LOCATION 0 IN Ri 

2135 O045S50 012503 ;173550 012503 MOV (R5)+;R3 SAVE LOCATION 2 IN R3 

2136 OO4SS2 012504 ;173552 012504 MOV (R5)+_R4 SAVE LOCATION 4 IN RY 

2137 OO45S4 011500 ;173554 011500 MOV (RS), RO SAVE LOCATION 6 IN RO 

2138 OO45S6 012715 ;173556 012715 MOV #PR7, (RS) :SET UP PRIORITY FOR NON-EX-MEM TRAP 

2139 000340 3173560 000340 

2140 OO4S62 O00574S ;173562 00574S TST -(RS) -SET RS = 4 

2141 OO4S64 Ol2702 3173564 012702 108: MOV #OTEBAS-DTESIZ, Re 

2142 OO4566 174340 ;173566 174340 

2143 004570 010715 ;173570 010715 MOV PC, (RS) STORE ADDRESS FOR NON-EX-MEM TRAP 

2144 004572 010506 ;173572 010506 MOV ‘SET STACK POINTER = 4 

2145 004574 Obe702 3173574 Obe702 118: ADD #OTESIZ,Re *Re POINTS TO THE NEXT DTE2O 

2146 004576 O00040 ;173576 000040 

2147 105702 ;173600 105702 TSTBs éR 

2148 OO4602 100770 3173602 100770 BMI 10$ “START LOOKING FROM THE BEGINNING AGAIN 
2149 OO4604 032762 ;173604 032762 BIT #T011DB, STATUS(R2) IS THIS -10 RINGING THE -11°S DOORBELL” 
2150 004606 O04000 ;173606 004000 

2151 OO04610 000034 ;173610 

2152 OO4612 001770 ;17361e 001770 BEG 11$ sIF IT IS NOT, GO LOOK FOR ANOTHER -10 
2153 OO4614 Oeb217 3173614 026217 CNP TOLOBC(R2), (PC) ;CHECK FOR A CODE (1365) FROM THE POP-10 
2154 004616 OO0014 3173616 000014 

2155 INDICATING THAT IT WANTS TO BOOTSTRAP THE -11 
2156 O04620 001365 ;173620 001365 BNE 11$ . 

2157 ; NOTE THAT AT THIS POINT Re CONTAINS THE ADDRESS OF THE DEVICE REGISTER 
2158 : BLOCK FOR THIS DTE2O, THAT RS = 4, AND THAT SP = 4 

2159 OO%22 005725 ;173622 005725 tsT (RS)+ ;SET RS = 

2160 O0462e4 010015 3173624 010015 MOV RO, (RS) RESTORE THE CONTENTS OF LOCATION 6 

2161 O0%626 G1O44S ;17 010445 MOV R4,-(RS) RESTORE THE CONTENTS OF LOCATION 4 

elbe 004630 O10345 ;173630 O10348 MOV R3, -(R5) RESTORE THE CONTENTS OF LOCATION 2 

2163 OO4632 010145 ;173632 010145 MOV R1,-(R5) RESTORE THE CONTENTS OF LOCATION O 

2164 » NOTE: AT THIS TIME RS = 0. THIS FACT WILL BE USED LATER. 

2165 OO4634 012700 ;173634 012700 Mov #DTECOR, RO RO = CORE ADDRESS FOR STORING DTE20 REGISTERS 
2166 004636 000130 ;173636 000130 

2167 OO4640 010204 ;173640 010204 MOV R2,R4 

2168 OO4642 Ole420 3173642 Ole420 7S: MOV (R4)+, (RO)+ -SAVE THE NEXT DTE20 REGISTER IN CORE 

2169 OO4644 O22700 :173644 022700 CMP #<DTEREG#2>+DTECOR,RO  ;HAVE WE FINISHED YET? 

2170 OO4646 OO0160 ;173646 

2171 OO4650 101374 :173650 101374 BHI 7$ ;LOOP UNTIL WE HAVE FINISHED 


JO4 
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2172 ;BM873-YD - KL10 (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 2(17) MACY11 27(657) 18-DEC-74 11:59 PAGE 1 
e173 ‘BM873-YD.P11 BUTTON #4 - BOOTSTRAP INITIATED BY THE POP-10 (THROUGH DTE2O) 

5175 ooyese 610201 3173652 010201 MOV Rl = DTE2O DEVICE REGISTER BLOCK 
2176 OO4654 062701 :173654 062701 ADD ROtAGe, RI 
2177 004656 O00032 ;173656 000032 P 
2178 OO460 Ole721 3173660 012721 MOV #DRESET, (R1)+ :DO A “DIAGNOSTIC CLEAR” OF THE DTE2O, 
2179 O04662 O00100 ;173662 000100 
2180 ; THE ABOVE OPERATION IS NECESSARY TO CLEAR THE “BYTE COUNT LOADED" FLAG 
2181 ANG SIMULTANEOUSLY TO TURN OFF "-10 RINGING -11'S DOORBELL 
2182 OO4664 005012 ;173664 o0S5012 if (Re) “SET DTE20 FOR NO DELAY 
2183 O04666 005062 ;173666 O050be2 CLR TOIOAD(Re) sSTART WRITING -11 MEMORY INTO THE -10. 
2184 004670 O00020 173670 o00020 
2185 004672 032711 :173672 032711 6S: BIT #TO11DB,(R1) | ;HAS THE -10 RUNG THE -11’S DOORBELL? 
2186 004674 OO4000 :173674 O04000 
2187 004676 001775 3173676 001775 BEQ b$ “LOOP UNTIL IT HAS. 
2188 OO4700 032762 3173700 032762 BIT #OUPE ! DURE !NUPE , OIAG3(R2) :"FATAL” ERROR? 
2189 OO4702 000026 :173702 000026 
2190 004704 000036 ;173704 000036 
2191 004706 001403 3173706 001403 BEQ 8S BRANCH IF NO “FATAL” ERROR 
2192 004710 012711 173710 012711 MOV #TC10D8,(R1) | ;SIGNAL “FATAL” ERROR TO THE PDP-10 
2193 OO04712 000400 ;173712 000400 
2194 004714 000000 :173714 OO0000 2S: HALT -HALT DUE TO “FATAL” ERROR 
2195 OO4716 Ole7be 3173716 Ole7be 8S: MOV sDRESET, DIAG2(Re) RESET AFTER POSSIBLE POP-11 
2196 004720 000100 :173720 000100 
2197 004722 000032 ;173722 032 
2198 ; MEMORY PARITY ERROR OR NON-EX-MEM ERROR, AND ALSO TURN OFF 
2199 & "-10 RINGING -11'S DOORBELL 
2200 OO04724 OOSOb2 ;173724 O0SOb2 3S: + TOLIAD(RE) START INPUTTING AT LOCATION 0 
2201 O04726 O00022 ;173726 o00022 
2202 004730 012762 3173730 012762 MOV #INT10! <<-DTEWDC)87777> , TOLIBC(R2) sREAD IN 256 WORDS 
2203 004732 107400 :173732 107400 
2204 004734 16 3173734 
2205 0047 36 O3e711 7173736 032711 1S: BIT #TOL1DB,(R1) | ;HAS THE -10 RUNG THE -11°S DOORBELL? 
207 OO4742 001775 i apup 001775 LOOP UNTHE L TT HAS 
HE TRANSMISSION FINISHED? 


2 ; BEQ 1$ 
csre OO4744 = 132711 5173744 132711 4S: BITB #TOLLON! TOLIER, cht 


2210 004750 001775 ;173750 001 BEG 4$ pr wrt, IT IS FINTSHED 

well O047S2 100003 ;17375e 100003 BPL S$ F “TOLLDN” ISN’T ON, “TOLLER” MUST BE ON 
2eele 004754 Oe2715 ;173754 022715 CMP #000240, (RS) ;CHECK FOR BIT PATTERN IN LOCATION ZERO 

e213 004756 000240 ;173756 000240 

2ee14 004760 001 31 001403 BEQ 3 ;UNLESS THERE IS A “NOP” IT IS AN ERROR 

e215 O04 012711 ;17376e Ole711 SS: MOV 01008, (R1) ;SIGNAL THE -10 THAT THERE WAS AN ERROR 

ecl& 004764 000400 ;173764 000400 

eel7 004766 000000 ;173766 000000 12S: HALT IS ERROR HALT IS BECAUSE ane. yey 
2218 IS ON, OR BECAUSE THE ity PATTERN eo INTO LOCATION ZERO WASN'T “OOO0240". 
e219 004770 012762 ;173770 012762 9S: hov " #DRESET, DIAG2(R2) ;SIGNAL THE -10 THAT EVERYTHING IS OK 
st irre RD Hire BN 

ezee 004776 END. YD: 

ece3 004776 000115 ;173776 000115 IMP (RS) ;JUMP TO LOCATION ZERO 

ece4 ; 000091 -END 


KO4 
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2225 O0SO000 MAP.YF: 
eeeb ; THE FOLLOWING IS A REPRODUCTION 
; OF ROM PROGRAM FOR BM873YF. 
eee8 ;IT_IS HERE FOR eperer lo iP THE 
Bah eT a FO 
873F - KL1 -11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) 22-AUG-75 10:30 PAGE 1 


32 ; TITLE PAGE 
2233 ; BM873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) 
’ 


5335 ' COPYRIGHT (C) 1975 DIGITAL EQUIPMENT CORPORATION 
2236 j ALL RIGHTS RESERVED 

{ THIS IS THE CODE TO BE ENCODED IN THE BOOTSTRAP ROM ON THE BN873-YF BOARD 
; MODULE: BNe73F 
t DATE: 17-JUN-75 
{ AUTHOR: TOM PORCHER 


fu 
4 
SVBHLD 


“pes meme + PRON SSOR STATUS REGISTER 
EL Silt GISTER 


445444 


% 
if 





LO4 
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227% :BM873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) 22-AUG-75 10:30 PAGE 1 
ge78 ; : DIRECTIVE FUNCTION CODES 
e280 : 000001 OR.OTE=1. sDTE EXAMINE/DEPOSIT/INITALIZE/DOORBELL FUNCTIONS 
eve : DTE FUNCTION CODES (LOW ORDER BY BYTE) 
2284 : 000001 OF.DOR=1 ;DOOR BELL FUNCTION CODE 
2285S : 000002 OF.OFF=2 :DTE OFF FUNCTION 
2286 : 000003 DF.ON=3 *DTE ON FUNCTION 
2287 : 000004 DF.DMG=4 ‘DEPOSIT MY GENERAL FUNCTION 
2288 : O0000S OF.EMG=S “EXAMINE MY GENERAL FUNCTION 
2289 : 000006 De. ENIN=6 “EXAMINE MY FOR N FUNCTION 
2290 : 000007 DF.OMN= DEPOSIT MY FOR N FUNCTION 
2291 : 10 OF.EHG=10 “EXAMINE HIS GEN SECTION FUNCTION 
23 : 90001 1 De. EH=1 1 sEXANI His SECTION FOR ME FUNCTION 
2294 : ane OF -KLW=13 s DIAGNOSTIC KL WRITE (FUNCTION 13) 
2295 : 000014 OF.KLX=14 *DIAGNOSTIC KL EXECUTE (FUNCTION 14) 
2296 : 000015 OF.PEX=15S *PRIVILEDGED EXAMINE (FUNCTION 15) 
2037 : 000016 OF.POP=16 *PRIVILEDGED DEPOSIT (FUNCTION 16) 
3099 : CRASH CODES 
530 pone, £6: JLOsh Tttegat EAT te 
aS BRE IRE Fay PTE trem 
4 ° = ? 
2305 : 000005 CC.RES=S5 ‘RESERVED INSTRUCTION TRAP 
a BRR RETR tron re 
2308 : 000010 CC. TO4=10 : TRAP } 4 
2309 : 00001 CC-UNT=1 1 TLLEGAL TRAP (UNKNOWN TRAP) 
2310 : boots CC: MPE=1 : PARITY ERROR 
ae BBB Oreck i PaaTeeg tnt BacBaro™ 027 PROTOCOL 
2313 : Sobre CC:CST=15 +O Ock Ob opPED 
2314 : 900016 CC. ILC=1 *TL ¢ 
2315 : 17? CC. 1PO0=1 : OVERFLOW 
2316 : 000020 ccd g0 j INCORRECT VALUE IN .SERFG 
g317 ; 000021 cC.NC =21 iNT , ENOUGH TRI iN CLOCK QUEUE 
z8 IB eran 
; . = 5 
e321 } 000025 CC.NDE=25 ERO ENOUGH NTRYS FOR DTE20 
Be ee eS 
2304 : CC. ETE=30 :T0 ELE : 
2225 : 000031 ce. 2 3 : MARK RILURE . 
2326 ; pons k . NON= ;NOT ) 
2327 ; C. TSP=33 ; TEN fsa 2 
2328 : 000034 ¢CC.UIE=34 *UNIMPLEMENTED FUNCTION 
2329 : 000035 CC. ILG=35 ‘ILLEGAL QUEUE 


OCTOBER 1976 
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000340 


ee 
: 000 
; 100000 
: 100000 
: 04 
: 02 


MO4 


18-FEB-77 15:18 PAGE Sl 


MACY11 27(657) 


GENERAL PROCESSOR DEFINITIONS 
;PROCESSOR PRIORITY 7 


“Tre ec we 


bR17=340 
DTE2O REGISTER DEFINITIONS 


THESE 
EXCEPT STATUS WHICH CONFLICTS WITH PROTOCOL SPEC 
PDM# 200-200-012-00 


BLYCNT=174400  ;DELAY COUNT WORD 
DEXWD3=1744 s DEPOS T OR EXAMINE WORD 3 
174404 DEPOSIT OR EXAMINE WORD 2 
XWD01=174406  ;DEPOSIT OR EXAMINE WORD 1 
ENAD1=174410 TEN ADDRESS WORD I 
TENAD2=174412 sTEN ADDRESS WORD 2 
TOLOBC=174414  :TO-10 POR-IL MEMORY ADDRESS 
TOLIBC=174416 :T0-11 BYTE COUNT 
TOLOAD=174420  ;TO-1 =1] MEMORY ADDRESS 
TOLIAD=174422  ;TO-11 PDP-11 MEMORY ADDRESS 
TOLODT=174424  ;TO-10 PDP-11 DATA 
TOL DT=17 4466 *TO-11 PDP-11 DATA 
DIAGI=1 30 s DIAGNOSTIC WORD 
IAGE=174u 32 ‘DIAGNOSTIC WORD 
STAT=174434 ; STATUS 
DIAG3=174436 § DIAGNOSTIC WORD 3 
: EXTERNAL PAGE DEFINITIONS (DEVICE DEFINITIONS) 
; DTE DEFINITIONS 
: REGISTER BIT DEFINITIONS 
: TENAD1 DEFINITIONS 
beP=010000 sDEPOSIT (BIT 12) 
PRT? pp 40C0 : SANTNE DEPOSIT PROTECT OFF 
PHYS=100000 :PHYSICAL EXAMINE 


, 

tFLoPs100000 1 FLIPFLOP BIT 
meoeoo00 «$46 

lipm=020000 :T0 11 BYTE MODE 


22-AUG-75 10:30 PAGE 1 


LABELS ARE THOSE USED _IN THE FRONT END INTERFACE SPEC 


NOY 


gg 1376 MACY11 27(663) 18-FEB-77 15:18 PAGE Se 
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384 ;BM873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) 22-AUG-75 10:30 PAGE 1 
2386 . : 
2387 DIAG, DEFINITIONS 
2389 . : ooyooo #so4¥=004000 ;KL CLOCK ERROR STOP 
2390 : 002000 0S05=002000 : RUN 
2391 : 001000 0506=001000 *HALT . 
2392 : 000400 DEX= ; DEPOSIT OR EXAMINE MAJOR STATE 
2393 : 000200 T010= ‘TO 10 
2394 : 000200 OF 
2395 : 000100 1011=000100 :TO-11 TRANSFER MAJOR STATE 
2396 : 000040 01011=000040  ;DIAGNOSE 10/11 INTERFACE 
2397 : PULSE=000020 §;SINGLE CLOCK CYCLE 
2398 : O10 DIKLIO=00010  § ;DIAGNOST Ic MODE SWITCH 
2399 : 000004 ND=000004 © ;SEND DAT ° 
e400 : 000001 DCOMST=000001  ;DIAGNOSTIC COMMAND START 
gute : DIAGI FUNCTIONS 
2404 : oo0000 STP CL =D ;STOP_THE KL CLOCK 
240S : 001000 :STRCL=01*1000 START T 
2406 : 002000 .SSCLK=02*1000 : SINGL : ep THE a Kaox CLOCK 
2407 : 003000 :SECLK=03*1000 : SIN TEP THE EBOX CLOCK. LEAVES THE 
2408 : >EBOX CLOCK FALSE YNC 
a 7 tae 14 he 
Sui : : DOES NO DEPEND reco OR MaMa MB WAIT. 
ule : 004000 .CECLK=04#1000 mais NA ONALLY ISSUE an EBOX CLOCK IF THE EBOX 
gua : Hie TesueD IN. IN ive nS Reset St St atES ae 
2416 : ooso00 “rane hee A BURST OF THE CLOCKS. THE NUMBER 
2417 : neOx cLocks. feSi D (1-255) HAS BEEN 
a : iBE EN LO VIOUSLY BY FUNCTIONS LOBRR, LDBRL 

20 : 006000 .CLRMR=06#1 AR MASTER RE 
sel : 007000 SET sy i iASTER ReCET STRIE RUNNING THE CLOCK WHILE IN THIS 
eves : CLRUN=1031 _—_— CLEAR HE RUN FLOP. MAKE THE MICRO CODE GO TO 

2s : 1 1 RUN FLOP. OW REPEATED INSTRUCTION EXECUTION 
58s : ' 199 ‘Sort a i Te er NUE FL (MOMENTARY). ALLOW THE 

, 
; 14 a reasitl — ;UNLATCH ae T FROM THE AD. 

e429 : 8 p00 DALTE=Is+109 ;UNLATCH Ti BRAM REST STER AND ALLOW ia TO LOAD FROM THE 


OCTOBER 1976 
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htt ted tet eh ht ti Le ee ie ie ie ee ee ee eh TY 


042000 


043000 
044000 


045000 


046000 


047000 


BOS 


i8-FEB-77 15:18 PAGE 53 


CLOCK LOAD FUNCTIONS 


: LOBRR=4281000 -LOA D THE RIGHT HAND 4 BITS OF THE 8 BIT 
COUNTER FROM EBUS BITS 32 35 


“Lopr. <udet Re ‘LOAD THE LEFT HAND 4 BITS OF THE BURST CTR. 
pert aust ooD *LOAD THE CLOCK SOURCE AND RATE SELECT 
;REGISTER: 32,33° 34,35 
; SOURCE 
; 00 NORM XTL O00 
: 01 FAST XTL Ol 2 
: 10 EXT v 74 
: 11 UNDEF /8 
.LODIS=45*1000 LOAD THE. REGISTER WHICH CONTROLS THE EBOX CLOCK 
s DISTRIBUTION. 


:33 DISABLE CONTROL LOGIC CLOCK 
3 DISABLE CONTROL RAM CL a 
DISABLE DATA PATHS CLOCK 
s-oex1=4@3 900 ;LOAD iy: CONDITION-CHECKING ENABLE REGISTER. 


L ENABLE THE CLOCK TO STOP AND SHOULD 
iE USED IN CONIUNGTION WITH BIT 35 OF FUNCTION 47 


FUNCTIO 
;3e CHECK FM PARITY 
333 CHECK CRAM PARITY 
334 CHECK DRAM PARITY 
CHECK FIELD SERVICE P 


335 OBE 
-Lock2=47+1000 ;LOAD THE ENABLE DISABLE FUNCTION REGISTER 


FUNCTION 
;3e DISABLE EBOX REQUESTS TO MBOX 
rs, SIMUL ag AN MB_RESP FOR EACH MB “ay 
334 CHECK AR AND ARX PARITY AND CAUSE A 
: APGE ha CODE TRAP IF ERR 
:3 T BE SET TO PERFORM DESIRED ACTION OF 
FONCTION ee (ABOVE). STOPS ALL CLOCKS IF AN ERROR 


OCTOBER 1976 
OZBMDH.P11 


e500 
2501 


ta tattath 
BUEN Low 


HERRERA RRR 
OWONOWM CWO 


% 
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;BM873F - KL10 (PDP- 11) a WORD BOOTSTRAP ROM VERSION 3(23) 
CONTROL RAM LOAD EBUS CR 


ee Oe ee we ee ee ee ee ws ee 


057000 


0S6000 
055000 


054000 


053000 
052000 
051000 


060000 
061000 


062000 
063000 


064000 


065000 
066000 
067000 


070000 
071000 


' LORM1=57%1000 


-vomna=s8i1006 


ibn-B4 
;2b-29 


-35 
-LORM4=54%1000 


. LORMS=53%1000 
“LCRDL=52%1000 
" LOROR=51%*1000 


COS 


15:18 PAGE S4 


MACY11 27(657) 22-AUG-75 10:30 PAGE 1 


308-11 20-23 


308-11 40-43 


DISP 00-04 
CRAM DIAG ADDRES 00-04 
CRAM DIAG ADR 05-10 


DRAM LOAD FUNCTIONS 


"LORM1=601000 
-LoRni2=611000 


“LORN3=6881 000 
-LORJV=63# 1000 


“Lorso=64%1000 
15-17 


12-14 DRAM AOO-02, EVEN ADDRESSES 

DRAM BOO-0e, EVEN ADDRESSES” 

12-14 DRAM ADO-O2, ODD ADDRESSES 
DRAM BOO-O2, ODD ADDRESSES 

iia 17 COMMON JO1-04 

-17 JO8-10, EVEN ADDRESSES 

PARIT art. SEVEN ADDRESSES 

fy COMMON JO7 (NOTE -- JOS,6 DO NOT EXIST) 
JO8-10, &DD ADDRESSES 
PARITY BIT, ODD ADDRESSES 


IR, DRAM CONTROL FUNCTIONS 


* psT0J=65%1900 
" DSACF=66%1000 
*E10JA=67%1000 
+ INICL=70#1000 


* WRMBX=71%1000 


pT SRBLE IR AC OUT DECODE OF OPCODES 254, 7XX 
*ENABEL KL STYLE DECODING OF CODES AND AC’S 
; INIT CHANNELS 


;WRITE M-BOX 


OCTOBER 1976 
DZBMDH.P11 
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ROM CONTENTS TABLES 
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Oe ee wees ee ws Be wee we ee we we we wes 


we ee ee wee ee we 


076000 
147000 


144000 
141000 
135000 
134000 
133000 


164000 
102000 


077000 
150000 
153000 


100000 
04 


000100 


(PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(e3) 


. MEMRS=76%1000 
"RORI= 147%1000 
(00 


"RCRM4=144%1000 
* RCSPF=141%1000 
"RDJ71=135%1000 ; 
"RDJ14=134%1000 
. ROMAB=133% 1000 


* ocupG=164%1000 
* GFNR=102*1000 


DOS 


18-FEB-77 15:18 PAGE SS 


MACY11 27(657) 
;SET KLIO MEM RESET FLOP 
;READ C-RAM BITS 0-19 


;READ C 

READ C-RAM BITS 60-79 
;READ SPEC FIELD OF C-RAM 
;READ JO7-J10 OF D-RAM 


READ JO1-JO4 OF D-RAM 
"READ A & B FIELD OF D-RAM 


;NOTE CONSOLE SOFTWARE MUST PERFORM THIS AS A PART OF 
;MASTER RESET CODE 


; LOAD AR FUNCTION 


| DAR=77%1000 
-PCABL=150#1000 


- PCABY=153#1000 


;LOAD THE AR FROM EBUS 0-35 
;PC-ADDRESS BREAK REGISTERS 


; DIAG3 DEFINITIONS 


éysi..7=109000 
0000 


; SWAP SELECT LEFT 
;PARITY 


4=04 
OP OnODND iSHIFT CAPTURED DATA 

DUPE= 000 ‘DATO UNIBUS PARITY ERROR 
CDD=000020 ; CLEAR UPE AND DURE ERROR FLAGS 
WEP=000010 ;WRITE EVEN (BAD) PARITY 
DURE=0000 ‘DATO UNIBUS RECEIVE ERROR 

Mr esos, PE UNIS PARITY ERROR 
TOLOBM=000001 ;TO-10 BYTE TRANSFER MODE 

H 

: DIAG2 DEFINITIONS 

RFMADO=100000 ;RFM ADDRESS BIT O 

Ebonresovene © EBS DONE 
RFMAD2=020000 ;REM ADDRESS BIT 2 

RFMADS=010000  ;RFM ADDRESS BIT 3 

DRESET=000100 :DTE RESET 


22-AUG-75 10:30 PAGE 1 
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me Se Os Ss Ss SS es OS SS SE Se Se Se wee we 


EQS 
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100000 


000001 


000000 
00000i 
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: STAT DEFINITIONS 
TO10DN=100000  ;TO-10 NORMAL TERMINATION 


DON10S=100000 ; NORMAL TERMINATION (DONE) TO 10 
10C=040000 ;70-10 ha TERMINATION STATUS 
TOIOER=020000 10-10 ERROR T TION 
ERR10S=0e ; ERROR TERMINATION STATUS 
RAMISO=010000 
ERR10C=010000 CLEAR TO-10 ERROR TERMINATION 
TO11DB=004000  ;-10 ers air -11 INTERRUPT 
INT11S=004000 REQ 1 be} ATUS 
OXWRD1=002000 ; DEX XWORD 
INT11C=002000 ;-10 REQUESTS nity INTERRUPT STATUS 
MPE11=00100 =-11 MEMORY PARITY ERROR 
PERCLR=001000 ;CLEAR -11 nENORY ha in FLAG STATUS 
T01008=000400 -11 REQUE 
INT10S=000400 ;REQUEST -10 INTERRUPT STATUS 
T0110N=000200 10-11 
DON11S=000200 TO-11 NORMAL TERMINATION FLAG STATUS 
=000100 ie BUFFER SELECT 
DON11C=000100 ;TO-11 las TERMINATION FLAG STATUS 
P=000040  ;NULL STO 
INTRON=000040 11 INTERRUPT sk 
=000020  ;EBUS PARITY ERRO 


BPARER 
EBUSPC=000020  ;EBUS PARIT ERROR 


RM=000010 tRESTRICTED MODE 

INTROF=000010  :DISABLE POP11 INTERRUPT 
XDON=000004, ;DEPOSIT/EXANINE DONE 

EBUSPS=000004 RROR SE 

TO11ER=000002 10-11 BYTE ERROR TERMINATION 

ERR11S=000002  :TO-11 ERROR TERMINATION FLAG STATUS 


INTSON=O00001  ; INT ERRUPTS ON 
ERR11C=000001  ;CLEAR TO-11 ERROR TERMINATION FLAG STATUS 


DTE20 COMMUNICATION AREA OFFSETTS (WORD NAMES) 


bIDENT=0 PROCESSOR IDENTIFICATION WORD 
CHNPNT=1 “POINTER TO conn AREA OF NEXT PROCESSOR (CIRC LIST) 
CYCLS= “CLOCK CPS COUN 

T9b=3 ; TIME OF DAY 

PSWW1= “PROCESSOR STATUS WORD 

PSWW2= PROCESSOR STATUS WORDe 

PSWW3= *PROCESSOR STATUS WORDS 
PSWW4=10 ‘PROCESSOR STATUS WORDY 
PSWWS=11 “PROCESSOR STATUS WORDS 
PSWWb=12 PROCESSOR STATUS WORDS 
PSWW7=13 “PROCESSOR STATUS ? 
PSWW10=14 PROCESSOR STATUS WORDIO 
PSWW1i=15 PROCESSOR STATUS WORD11 
PSWWle=16 ‘PROCESSOR STATUS WORD1e 


OCTOBER 1976 
DZBMDH.P11 


MACY11 27(663) 


ROM CONTENTS TABLES 


;BM873F - KL1O (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) 


000017 


000023 


000032 


000033 


000037 


OOO444 


OOO4SE 


000001 
000002 


FOS 
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PSWW13=17 sPROCESSOR STATUS WORD13 
FORPRO=20 £0 R PROCESSOR IDENTIFICATON WORD 
ROPNT=21 ‘POINTER TO COMM AREA OF THE PROCESSOR ASSOC WITH THIS BLOCK 
STATUS= ‘COMMUNICATION STATUS WORD 
QSIZE= QUEUE SIZE WORD 
CTYOCW=24 CTY #0 COMMAND WORD 
: CTYORW=25 CTY #0 RESPONSE WORD 
:CTY1CW=26 CTY #1 COMMAND WORD 
CTYIRW=27 ;CTY #1 RESPONSE WORD 
:MISCW=30 MISCELLANEOUS COMMAND WORD FOR NON-QUEUE PROTOCOL 
*MISRW=31 "MISCELLANEOUS RESPONSE WORD 
UNASG1=32 “UNASSIGNED WORD! 

UNASG2=33 ‘UNASSIGNED WORD2 
UNASG3=34 “UNASSIGNED WORDS 

=35 ;UNASSIGNED WORDY 

UNASGS=36 UNASSIGNED WORDS 
UNASGb=37 UNASSIGNED WORDS 
: EPT ADDRESSES AS DEFINED IN BOOTS FOR USE IN THE 
: SECONDARY PROTOCOL 
OTEFLG=444 ;OPERATION COMPLETE FLAG 
OTEF11=4S0 :PDP-10 FROM 
TECMD=451 ;POP-10 79, POP -11 COMMAND WORD 
OTENTD=455 ‘MONITOR T y OUTPUT COMPLETE FLAG 
DTENTI=456 : MONITOR ty INPUT FLAG 
: STATUS DEFINITONS 
to1t=1 SIN PROGRESS OF PROCESSING QUEUE 
TOIP=2 TO HIM INDIRECT IN PROGRESS 


@2-AUG-75 10:30 PAGE 1 
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264 ;BNB73F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) 22-AUG-75 10:30 PAGE 2 
2668 : DEFINITIONS . . . 
5670 , po0040 oTOR7= 40 ;SAVE RO TO R7 IN 40 TO Sb 


2672 ; 000130 bresav= 130 ;SAVE FIRST le DTE REGISTERS DLYCNT TO TOLIDT 
2673 4 ; IN LOCATIONS 130-156 


3675 , poon12 RETRY= 10.  ;DO 10 RETRIES BEFORE HALTING 
3677 , 173000 ROMORG= 173000 ;ROM STARTS AT 773000 

5E79 t ESTABLISH ROM ORIGIN 

5681 , 173000 ' =ROMORG 


OCTOBER 1976 
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005020 
00S022 


gosoe4 
005026 


005030 
005032 
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010037 


000001 
001007 
000557 


o0S000 
oo0404 


173000 
000340 


012700 
000200 


010005 
106300 
122700 
000340 
101404 
122700 

(0060 
101001 
005000 


000300 
042700 
177770 


;BMB73F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) 
EXTERNAL BUTTONS #1, 


3 173000 ett 
;17301e 000001 
:173014 001007 
173016 000557 


;173020 005000 
;173022 000404 


3173024 173000 
173026 000340 


; 173030 012700 
;173032 000200 


; 173034 010005 


si 
17 soe 101001 
;173054 005000 


0S& 000300 
1730 Deo 042700 
3173099 177770 


HOS 
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#2, 43 


: BUTTON #1 -- LOAD USING SWITCH REGISTER 


BUTON1: MOV RO, ROTOR7+0 
MOV SWR,RO 
BIT #81T0,RO 
BNE BUTONX 
BR REGSAV 

: BUTTON 

BUTON3: CLR RO 
BR BUTONX 


. WORD 


REQUIRED POWER-FAIL VECTOR 


ROMORG , PR7 


;SAVE RO IN LOCATION 40 


;GET SWITCH REGISTER 
;I1S LOW-ORDER BIT SET? 


; YES-~ LOOK_AT CONTENTS 


MACY11 27(657) 22-AUG-75 10:30 PAGE 3 


:NO-- SAVE RI-R7 IN 42-56, GO TO ADDRESS IN RO (FROM SWR 


#3 -- LOAD BOOT FROM cit FLOPPY DISK 


SAY _LOAD FROM FLOPPY, UNIT 0 
GO TO COMMON CODE FOR 3 BUTTONS 


} BUTTON #2 -- LOAD BOOT FROM RPOY DISK 
BUTON2: MOV 


ios: 


' RO IS SAVE 
: AND CO 


BUTONX: MOV 
aSLB 


CMPB 


BLOS 
CMPB 


BHI 
CLR 


SWAB 
BIC 


D 
INS 


#B1T7,RO 
BUTONX 


10$ 
#3*BIT4,RO 
10$ 

RO 


RO 
#tC7,RO 


;BIT 7 MEANS LOAD FROM RPO4 


;FALL INTO COMMON CODE 


QO, BIT 1S = 


IN RS AS THE PARAMETER WORD PASSED TO BOOT 

ONE OF THE FOLLOWING: 

=1 IF FROM SWITCH REGISTER 

= 0 LOAD FROM RX11 FLOPPY DISK 
=1 LOAD FROM RPOY DISK 

=1 INDEFINITE RETRY 

: NOTE THAT IF BUTTON #4 IS PRESSED, RS WILL CONTAIN BIT O = 
RO,RS ; SAVE PARAMETER FOR BOOT 
RO ;LEFT-ALIGN ot te PIELD IN LOW BYTE 
#16*B1T4,RO ;1S SPEED 16 OR 1 


;YES-- UNIT FIELD IS UNIT # TO BOOT FROM 


;1S SPEED 0, 1, OR 2? 


s YES-- "al ae UNIT TO USE 


*NO-- U 


;GET UNIT # IN LOW ovis 


; TRIM ut 3 BITS 2, 


, O 


105 
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2736 : 

HEL ; UNIT # IS IN RO-- CALL PROPER BOOT DEPENDING ON BIT 7 
2739 005064 105705 ;173064 105705 TSTB RS 3 ERS 6 WE BOOT FROM? 
2740 005066 100550 ;173066 100550 BMI RPBOOT ;BIT BOOT FROM RPO4 


DISK 
2741 ; BR RXBOOT :BIT - = o = - BOOT FROM RX11 FLOPPY DISK 
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ewe ee wees ee es ee es a8 we we ee 


177170 


000002 


000001 
000001 


000073 
000001 


JOS 
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MACY11 27(657) 
RX11 FLOPPY DISK BOOTSTRAP AND DUMP ROUTINES 


! RXI1 REGISTER DEFINITIONS 


bxepa= 


177170 ;EXTERNAL PAGE ADDR OF FLOPPY 
AxcS= 0 -OFFSET FOR CSR 
RXERR= BITIS ROR 
RXTREQ= Bite t TRANSFER REQUEST 
RXDONE = BITS : TRANSFER DONE 
RXUNIT= BIT4 UNIT NUMBER 1 
RXFUNC= BIT3!B1T2!B1T1 iF TION: 
XFILL : FILL SILO 
MPT= : EMPTY SILO 
RXWRIT= 4 : WRITE SECTOR 
RXREAD= 6 ; READ SECTOR 
RXRERR= ; FREAD ERROR REGISTER 
RXxGO= BITO 
RXDB= 2 ; MULTI-PURPOSE DATA BUFFER REGISTER 
; PARAMETERS 
ais e sBOOTSTRAP FROM TRACK 
RXBSCT= 1. : SECTOR 1 (LOGICAL BLOCK 0) 
AxDTRK= 59. ure TO TRACK S9 
RXDSCT= 1. : SECTOR 1 
* NOTE THAT THE BOOTSTRAP IS WRITTEN IN LOGICAL BLOCK 0 


WHICH IS T 
SH ARTING WITH TRACK 59, SECTOR’! 
SECTORS, NOT INTERLEAVED OR SK REUED) 


RACK _1, SECTORS 1, 3, S, 7. THE DUMP IS WRITTEN 
iN EVERY SECTOR (PHYSICAL 


; REGISTER USAGE : 


RO - READ OR WaTTE FUNCTION. BIT 1S SET IF WRITE 
Rl -- ADDRESS OF R 

Re -- CURRENT TRACK (HIGH BYTE) pecan (LOW BYTE?) 
R3 -- My (HIGH oy SECTOR (LOW BYTE) 

RY -- DATA ADDRESS (TO READ 

RS -- PARAMETER WORD SAVED FROM INITIALIZATION 

SP -- RETRY COUNTER 


22-AUG-75 10:30 


PAGE 4 
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KOS 


MACY11 27(663) 18-FEB-77 15:18 PAGE 62 


ROM CONTENTS TABLES 


012703 178000 12703 aoa 


000401 ‘13072 (00401 
ppeche i ipatre Coe pe 
iz705 £17310 012700 
000020 ;173102 o00020 


052700 ;173104 052700 
000007 ;173106 000007 


! HERE TO BOOT FROM RX11 FLOPPY DISK-- UNIT # IN RO 


10$: 


MOV 


#<RXBTRK#BITS> ! <RXBSCT#BITO> ,R3 
RO ite Ls oN T # 0? 
Yes== 


10$ 

#RXUNIT, RO :NO=- use UNIT # 1 
#RXREAD+RXGO,RO ;SET READ FUNCTION IN RO 
RXSTRT ;FALL INTO START-UP 


OCTOBER 1976 
DZBMDH.P11 


Pad 


363 03 0 03 6.0560 0305 0003 6000 
eee eee eeneeeaeee 
pon 


BR 


BSESPR NS 


o£Mo 


Romanian base 
FESSRERS HVVD 


SINS TOSR ENS 


R (eee 
2 
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012706 
000012 
012701 
177170 


a oe oe 
oS onl 
SNe 
Ld ae 


s: 


ees 


;BM873F - KL1O 
3173110 012706 
3173112 000012 
3173114 012701 
3173116 177170 
3173120 005705 
;1731ee 100402 
3173124 005306 
3173126 002475 
; 173130 000005 
3173132 O0S004 
3173134 010302 
3173136 032711 
3173140 000040 
3173142 001775 
3173144 005700 
3173146 1004S4 
173150 110011 
173152 105711 
173154 100376 
173156 11026i 
His fs 
Is IB 
1731 302 
7 i 10261 
173174 000302 
7 0327 
18 ie 
173204 100748 


LOS 
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(PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) 


MACY11 27(657) 


; HERE TO START RX11 ON A TRANSFER, EITHER DUMP OR BOOT 


;SET RETRY COUNT 


22-AUG-75 10:30 PAGE 4 


;ADDRESS CONTROL STATUS REGISTER FOR RX11 
;FALL THROUGH RETRY CHECK 


; INDEFINITE RETRY? 


;YES-- TRY FAIT 
;NO-- DECREMENT 
;GIVE UP IF RUN 


HFULLY 
RETRY COUNT 
UN OUT 


5 BLHAYS tral TRANSFER oT LOCATION ZERO 


;GET START TRACK 


WALT 


;NOT YET-- WAIT 
;THIS WRIT 


UNTIL READY FOR FUNCTION 


E? 
;YES-- FILL SILO BEFORE WRITE 


;NO-- JUST DO FIRST READ 
AS SPECIFIED IN RO 
;D0 READ OR WRITE 


; READY? 
;NO-- T 
;SET SECTOR # 


;DONE OR ERROR 


RXSTRT: MOV #RETRY, SP 
MOV #RXEPA+RXCS, R1 
; BR RXRTRY 
; HERE ON ERROR TO RETRY 
RXRTRY: TST RS 
BMI 10$ 
DEC Sp 
BLT RXEHLT 
loS: | RESET  ;CLEAR THE WORLD 
CLR RY 
MOV R3, R2 
20$: BIT #RXDONE, (R1) 
BEQ 205 
TST RO 
BMI RXFLSL 
; BR RXPERF 
: HERE TO PERFORM READ OR WRITE, 
AXPERF: M RO, (R1) 
10S: Mere (RL) 
BPL 10$ 
MOVB Re, RXDB(R1) 
20$: STB (RI) 
BPL 2 
SWAB OséRR2 
MOVB Re, RXDB(R1) 
SWAB sé 
30$: BIT #RXERR!RXDONE, (RL) ; 
BEQ 30 
BMI RXRTRY 


;READY FOR TRACK? 
NO-- WAIT 

ie - GET TRACK # 
i] 


;RESTORE HIGH Mang LOW SECTOR 


;NO-- WAIT 
;YES-- ERROR IN FUNCTION 


OCTOBER 1976 
DZBMDH.P11 
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ROM CONTENTS TABLES 


3 17sete 012711 
3173214 000003 
3173216 132711 


3173220 000240 
3173222 000402 


17304 173000 
3173226 000340 


1173290 001772 
; 100003 
3173234 116124 
3173236 000002 
3173240 000766 


ae 
173242 
:173242 ecste 
siege 1000 
3173250 101337 
; 173252 7 
3173254 . 
:173254 Anessa 
31 227 
317. 
31 1 
17 


MOS 
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: DISK TRANSFER COMPLETE WITH NO ERRORS 
, TST RO sTHIS A WRITE? 

BMI RXWDON ; YES-~ SEE IF DONE WITH DUMP 
; BR RXEMSL *NO-- READ-- EMPTY SILO 


READ COMPLETED-- EMPTY SILO TO MEMORY 


AYEMSL: MOV —sSRXEMPT#RXGO, (RL) ;START EMPTY 

{0$:  BITB § SRXTREQ!RXDONE,(R1) ;READY FOR WORD, OR TRANSFER DONE? 
BR 208 BRANCH AROUND VECTOR 

; REQUIRED POWER-FAIL VECTOR 

; .WORD  ROMORG,PR7 


;NOT READY-- WAIT SOME a 

BPL RXRDON ;DONE-- GET ANOTHER SECTO 

MOVB § RXDB(R1),(R4)+ ;NOT DONE-- GET A BYTE FROM SILO TO MEMORY 
BR 10$ ;WAIT FOR NEXT BYTE 


} SILO EMPTIED-- SEE IF WE ARE DONE WITH BOOTING 


‘ns:  BEQ «10 


RXRDON: 
$SS=. 

CMPB OO s(R2)+ (Re) + 

CMP #256. #2, _ gHAVE WE READ ENOUGH? 

BHI RXPERF ;NO-- READ SOME MORE 

CLRPC: CLR PC ;YES-- GO TO LOCATION ZERO 


: WRITE COMPLETED-- SEE IF DONE DUMPING 


RXWDON: 
$$$-. 
INC Re 
CMPB #26. ,Re ; THIS LAST SECTOR ON TRACK? 
BHIS 10$ ;NO-- KEEP ON got 
CLRB Re : YES-- CLEAR SECT 


ADDRESS 
ADD #BITS!BITO,R2  ;BUMP TO NEXT TRACK, SECTOR 1 
#1024.#28.#2,R4 ;ARE WE DONE WITH 28 K? 


BLOS HAL TO ;YES-- GO HALT WITH RO= O IN DISPLAY 
RXFLSL ;NO-- FILL SILO WITH NEXT SECTOR 


OCTOBER 1976 
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BBB BBB 
WONMUIL£W 


BRESRES 


00S34e 


005354 


NOS 
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} WRITE ANOTHER BLOCK-~ FILL SILO 


RXFLSL: MOV #RXFILL+RXGO,(R1) ;SET TO FILL SILO 


1 
1 
i lo$:  BITB § sRXTREQ!RXDONE,(R1) ;READY FOR ANOTHER BYTE? 


;NO-- WAIT SOME MORE 
;DONE-- GO PERFORM WRITE 
;YES-- STORE ANOTHER BYTE IN SILO 


;WAIT UNTIL READY FOR ANOTHER 


; HERE ON ERROR AFTER RETRYING -- DISPLAY ERROR REGISTER AND HALT 


012711 ;173300 01271 

000001 ;17330e 00000 

132711 ;173304 13271 

000240 ;173306 00024 

001775 + ;173310 001775 BEQ 10$ 

100316 ;17331le 100316 BPL RXPERF 
112461 5173314 112461 MOVB (R4)+,RXDB(R1) 
000002 ;173316 00000e 

000771 5173320 000771 BR 10$ 

012711 

000017 ;1733e4 17 

032711 ;173326 032711 108: BIT #RXDONE, (R1) 
000040 ;173330 OO0040 

001775 ;17333e 001775 BEQ 10$ 

016100 ;173334 016100 MOV RXDB(R1) ,RO 
00000e ;17. 000002 

600476 ;173340 000476 BR HALTED 


WHEN BUTTON #1 WAS 


Tee ec we we we wows 


3173322 012711 RXEHLT: MOV #RXRERR+RXGO,(R1) ;D0 A READ ERROR REGISTER FUNCTION 


;WAIT UNTIL ERROR ASSEMBLED 


'GET ERROR REGISTER 
;HALT AND DISPLAY ERRORS 


START -11 HERE TO DO A DUMP TO RX11 FLOPPY DISK 
NOTE THAT RO-R7 HA il BEEN SAVED IN 40-S6 


;173342 XDUMP : 
012703 3173342 012703 MOV #<RXDTRK#BITB> ! <RXDSCT#BITO? ,R3 
035401 $173344 035401 
012700 ; 0 MOV #B1T1S!RXWRIT+RXGO,RO ;D0 A WRITE 
100005 17S : 


odes: [173385 Dobbs BR RXSTRT 


;CLEAR INDEFINITE RETRY BIT 
;START DUMP GOING 


BO6 
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DZBMDH. P11 ROM CONTENTS TABLES 
2337 :BM873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) 22-AUG-75 10:30 PAGE 5 
2333 : : REGISTER SAVE ROUTINE 
2941 : REGSAV IS CALLED TO SAVE THE GENERAL REGISTERS RO-R7 
ene : IN MEMORY AT 40-56 (LOCATION ROTOR7). 

2944 * CALLING SEQUENCE: 

294s : MOV RO. ROTOR7+0 
2946 : MOV #RET. RO 
2947 : BR REGSAV 

one : RET: <RETURN HERE? 

2950 : ALL REGISTERS RESTORED 
2951 : 

2952 


2953 005356 010037 ;173356 010037 kecsav: MOV RO, ROTOR7+16 ;SAVE RO AS PC IN S6 


2954 005360 000056 ;173360 000056 
2955 005362 012700 :173362 012700 MOV. WROTOR7+16,RO ;RO NOW POINTS TO 56 
2956 005364 O00056 ;173364 OO00S6 
5366 010640 173366 010640 MOV —s SP, -(RO) SAVE SP IN SH 
005370 010540 ;173370 010540 MOV —«RS5=(RO) tSaVE RS IN 52 
2353 00 10440 3173372 010440 MOV 4’ -(RO) ‘SAVE R¥ IN SO 
05374 010340 173374 01034 MOV —s«R3?-( RO) ‘SAVE R3 IN 46 
2961 00 010240 ;173376 010240 OV —s- Re? -( RO ;SAVE Re IN 44 
2962 005400 O10140 173400 010140 MOV 1’ (RO ‘SAVE RI IN 42 
2963 O05402 O14000 5173402 014000 MOV  - (RO), RO tRESTORE RO FROM 40 
2964 GOS4O4Y 000177 ;:173404 000177 JMP —- AROTOR7+16 !G0 TO SAVED PC 


2965 OO9S40E OO4446 3173406 OO4V44E 


COB 
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2366 ;BM873F - KL1O (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACYI1 27(657) 22-AUG-75 10:30 PAGE 6 
2368 : RPOY DISK BOOTSTRAP AND DUMP ROUTINES 

2370 : RPOY REGISTER DEFINITIONS 

e378 : 176700 RPEPA= 176700 ;EXTERNAL PAGE ADDRESS OF RPOY REGISTERS 
2974 ; 000000 RPCSI= O “OFFSET FOR CSR #1 

ec : 040000 RPTRE= BITLY - TRANFER ERRRO 

2976 : 020000 RPMCPE= BIT13 : MASSBUS ERAT RGL PARITY ERROR 
29 : 004000 RPDVA= BITI1 i DRIVE AVAILABLE (TO -11 
2978 : 000200 RPRDY= BI1T7 “FUNCTION COMPLE 

2979 : 000076 RPFUNC= BITS:BITHsBITSIBI Te:B1T1 FUNCTION: 

2980 : 000020 RPPRST= 20 ; READ-IN’ PRESET 

2981 : 000060 RPWRIT= 60 : RE TTE DATA 

2982 : 000070 RPREAD= 70 ; R 

2983 : 000001 RPGO= BIT 

2984 : 000002 RPWC= 2 sWORD COUNT REGISTER 

2985 : 000006 RPDA= 6 TRACK (HIGH BYTE) SECTOR (LOW BYTE) 
2986 : 009010 RPCS2= 10 “CONTROL AND STATUS REGISTER #2 

2987 : 000007 RPUNIT= BIT2!BITI'BITO ;UNIT # 

2988 : 000012 RPDS= le DRIVE STATUS ReTSTER 

2989 : 100000 RPaATA= BITI ATTENTION ACTIVE 

2990 : 040000 RPERR= Btria ‘DRIVE ERROR 

o23l : 00003 RPDC= 34 DESIRED CYLINDER 

2993 : 

2334 : PARAMETERS 

2996 : o00000 RPBCYL= 0. BOOT FROM CYLINDER 0 

2997 : 000000 RPBTRK= 0. : TRACK O 

2338 : 000000 RPBSCT= 0. : SECTOR O 

3000 ; 000631 APDCYL= 409. — To CYLINDER 409 

3001 : 000015 RPOTRK= 13. TRACK 13 

3002 . 000010 RPDSCT= 8 : cEcTOR 8 

3003 ; 

3004 : 

3005 ; REGISTER USAGE: 

3006 : RO - FUNCTION CODE (HIGH BYTE) UNIT # (LOW BYTE) 
3007 : BIT 15 SET IF WRITE 

3008 : Rl -- BODRESS OF RPCS1 

3009 : Re -- CYLINDER # 

3010 : RS oo TRACK (HIGH BYTE) SECTOR (LOW BYTE) 

3012 : RS -- PARAMETER WORD SAVED FROM INITIALIZATION 
3013 } SP -- RETRY COUNTER 


OCTOBER _1976 
DZBMDH.P11 
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00S416 
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HERE TO BOOT FROM RPOY-- UNIT # IN RO 


-173410 RPBOOT: 
oosoo2 $173410 o0so02 CLR R2 
005003 :173412 005003 CLR R3 
052700 :173414 052700 BIS #<RPREAD+RPGO> *BIT8,RO ;SET READ HIGH BYTE, UNIT # LOW BYTE 


osa4o0 1173416 O34400 


OCTOBER 1976 
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ROM CONTENTS TABLES 
;BMB73F - KL1O (POP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) 


012704 
177400 


012706 


100247 


173420 012704 
3173422 177400 


; 1734e4 ne 
‘1 
;173432 176700 


3173434 005705 
;173436 100402 
173440 005306 


5173442 002437 
5173444 oooo0s 


173476 000002 


‘173500 000300 
3173502 110011 
;173504 000300 


5 173506 105711 


:17353e 100247 


E06 
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#-256.,RY 
RPSTRT 


;READ 256 WORDS 
;START BOOT GOING 


? START RPOY GOING ON EITHER DUMP OR BOOT 


MOV 
3 BR 
RPSTRT: MOV 
MOV 
5 BR 


: HERE ON ERROR 
RPRTRY: TST 


ios: 


dos: 


#RETRY , SP 
#RPEPA+RPCS1,R1 
RPRTRY 

TO RETRY 


RS 
10$ 


SP 

RPEHLT 
-ZAP!! 

RO, RPCS2(R1) 
#RPDVA, (R1) 


GREPRST#RPCO, criss 00 TREAD= -IN PRESET’ FUNCTION 
;SELECT PROPER CYLINDER 
; AND TRACK AND SECTOR 
;SET UP WORD COUNT TO PROPER VALUE 


R2,RPOC(R1) 
R3,RPDACR1) 
R4, RPWC(R1) 


j INFINITE RETRY? 
;YES-- T 


MACY11 27(657) 
TO BOOT 


;RETRY RETRY TIMES 
;ADDRESS RPCS1 I 
;FALL THROUGH RETRY CODE 


N Rl 


RY AGAIN 
*RETRY CONT “pipet 


sYES-- GIV 


Y AGAIN 


;SELECT PROPER UNIT # 
;IS DRIVE AVAILABLE TO US? 


sNOTE THAT IT IS NOT NECCESARY TO SET UP BUS 
; ADDRESS, SINCE IT Fe AFTER READ-IN PRESET 


ko 
RO, (R1) 
RO 


(R1) 


20$ 
#RPTRE!RPMCPE, al: 


RPRTRY 
#RPATA!RPERR, RPDsRI) 


RPRTRY 
RO 
CLRPC 
HALTO 


TION CODE IN LOW BYTE 
START FUNCTION GOING 
:RESTORE RO 


WAIT UNTIL 


LIT 


ES-- ERROR-- TRY AGAIN 


;ATTN OR OTHER ERROR? 


s YES-- ERROR=- TRY AGAIN 


‘READ FUNCTION? 


YES-- BOOT=- GO 


TO LOCATION 0 
:NO-- DUMP-- HALT WITH RO= 0 IN DISPLAY 


22-AUG-75 10:30 PAGE & 


or 
IS 
TTRANSFER OR MBC PARITY ERROR? 


FOG 
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DZBMDH.P1i ROM CONTENTS TABLES 
3076 H 
3077 : HERE TO HALT AFTER A DUMP-- DISPLAY RO= 0 IF NO ERRORS 
3078 005534 05000 ;173534 O0S000 HALTO: CLR RO :DISPLAY RO= 0 TO INDICATE NO ERRORS 
3081 005536 O00000 ;173536 OO00000 HALTED: HALT  =;DIE 
3082 005540 000776 ;173540 000776 BR HALTED ;STAY DEAD 
3084 : HERE ON ERROR FROM RPO AFTER RETRYING-- DISPLAY DRIVE STATUS IN RC 
3086 OOSS42 016100 ;173542 016100 RPEHLT: MOV RPDS(R1) ,RO ;DISPLAY DRIVE STATUS 
3087 005544 000012 :173544 O0001e 
3088 005546 000773 :173546 000773 BR HAL TED sR.I.P. 
3090 : 
3031 : START -11 HERE TO DUMP TO RPO4 DISK 
3093 : NOTE THAT RO-R7 HAVE ALREADY BEEN SAVED IN 40-56 
3094 ; BY PRESSING BUTTON #1 
3095 
3096 173550 RppuMP: 
3097 oOSSSO 012702 i 153ee5 012702 MOV #RPDCYL,R2 
3098 005552 000631 ;173552 000631 
3099 005554 012703 ;173554 012703 MOV #< RPDTRK#BITS> ! <RPDSCT#BITO> , R3 
3100 005556 O06410 :173556 006410 
3101 005560 012700 ;173560 012700 MOV #BIT1S!<<RPWRIT+RPGO)*BITS>,RO ;D0 A WRITE, UNIT # 0 
3102 005562 130400 ;173562 130400 
3103 005564 012704 :173564 012704 MOV #-<1024.#28.>,R4 ;SET TO DUMP 28 K 
3104 005566 110000 ;173566 110000 
3195 005570 o0500S ;173570 o0s005 CLR RS ;CLEAR INDEFINITE RETRY BIT 
31968 005572 900714 :173572 000714 BR RPSTRT :START DUMP GOING 
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: ; REGISTERS SAVED-- LOOK FOR THE DTE20 WHICH PUSHED THE BUTTON 
; THE DTE WHICH PUSHED ye BUTTON SHOULD HAVE THE DOORBELL 
RINGING HE VALUE 1365 (OCTAL) IN IT’S 
TO -10 BYTE COUNT TOLUBC- 


: 
: NXM (TIME-OUT) TRAP IS USED TO SKIP NON-EXISTANT DTE20’S. 
los 


107 :BM873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) 22-AUG-75 10:30 PAGE 7 
103 , ; INTERNAL BUTTON #4 -- DUMP AND BOOTSTRAP THROUGH DTE2O 
ii : DTE20 DEFINITIONS 

113 : NOTE THAT ALL DTE2O REGISTER DEFINITIONS AND BIT DEFINITIONS 
114 ; ARE IN SDEF IN SYSMAC. SML 

116 : oooo40 pTEestz= 40 ;EACH DTE OCCUPIES 20 WORDS IN EXTERNAL PAGE 
11? : 000004 DTEMAX= 4 *MAX OF 4 DTE’S ON A PDP-11 

119 ! 

120 : BUTTON #4 -- INITIATED BY '-10 RELOAD -11’ BIT 

122 005574 010037 ;173574 010037 BUTONY: MOV RO, ROTOR7+0 ;SAVE RO IN 40 

123 005576 O00040 :173576 OO0040 

124 005600 012700 ;173600 012700 MOV #10$, RO ;SET RETURN ADDRESS IN RO 

125 O0S602 173606 ;173602 173606 

126 005604 O00664 :173604 000664 BR REGSAV :SAVE R1-R7 

128 

129 

30 

31 

32 

33 

24 


3s 

36 005606 O0S00S ;173606 005005 CLR RS ;ADDRESS LOCATION ZERO 

37 005610 012500 ;173610 012500 MOV (RS)+,RO ;SAVE 0 IN RO 

38 O0561e O1eS01 5173612 012501 MOV (R5)+-R1 sane 2 IN Ri 

39 149 011502 ;173614 011502 MOV (RS), Re ;SAVE 4 IN Re 

40 16 QO12725 5173616 012725 MOV w2is? (RS)4 ;SET NXM TRAP ADDRESS IN 4 
41 005620 173634 ;173620 173634 

42 O0S62e 011503 ;17362e 011503 MOV (RS) ,R3 ;SAVE 6 IN R3 

43 005624 012715 see 012715 MOV #PR7, (RS) :SET PRIORITY FOR NXM TRAP 
= 005626 000340 ;1736e6 000340 

46 ; LOOP THROUGH ALL DTE’S 


005630 012704 ;173630 012704 bos: MOV #DLYCNT-DTESIZ,R4Y ;POINT TO OTE # -1°S DELAY COUNT REGISTER 
005632 174340 3173632 174340 (MILL BUMP T0 @ 0) 


WIIG) WIG) GI GIGI GI GIGI GIG) GIG) I GI WI I I I) GI I GI GI GI I I WWI WI WI WI WI WI WI WWI WI WWW WW 


= b= Bb bb bs = be be be be Be he he be he fs pe he 


Wet e 
OoOwon 
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at 
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Oe 
000014 
001365 


3173634 012706 
;173636 000004 


3173640 062704 
;173642 000040 
3173644 105704 
$ 173646 100770 


173650 032764 


;173652 004000 
; S4 000034 
it 656 001770 


; 173662 000014 
173664 001365 


HO6 


18-FEB-77 15:18 PAGE 72 


: HERE ON NXM TRAP=- RESET SP AND TRY NEXT DTE 


bis: 


bog. 


MOV 


ADD 
TSTB 


BMI 
BIT 


BEG 
CMP 


BNE 


#4, SP ;SET SP TO 4, STACK IS LOCATIONS 2 AND O 


;BUMP TO NEXT DTE’S EXTERNAL PAGE ADDRESS 


RY THIS THE END OF THE DTE’S? 
; NOTE THAT THE ider DTE IS AT 774S40 
AND THAT NOW R4= 774600 IF END 

a0 - YES-- START ALL OVER, UNTIL A DTE 


HE PUSHED’ THE BUT 
b701108, STAT-DLYCNT(R4) ;DOORBELL RINGING? 


oDTESIZ,R4 


ees ~~ TRY NEXT DTE 
FO0BC-DLYCNT(RYS~ CPC) ;DOES THIS ONE HAVE 1365 


; IN IT’S” TO -10 BYTE COUNT? 


22S ;NO-- TRY ANOTHER DTE 


OCTOBER 1976 
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000 
103374 


;BM873F - KL1O (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) 


3173666 010315 
;173670 010245 
3173672 010145 
;173674 010045 


5 173876 012700 


1 022700 
3173706 000156 
3173710 103374 


; 173712 
ti 7arie 005724 


3173720 
;173722 010021 


106 
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MACY11 27(657) 
; WE HAVE FOUND THE DTE WHICH PUSHED THE BUTTON 
; ADDRESS OF DLYCNT REGISTER IS IN RY 


MOV R3, (RS) ;RESTORE LOCATION 6 
MOV Re, -(RS) . ¥ 
MOV RI, me se 
MOV RO, -(R5) ; 0 


; SAVE FIRST 12 DTE REGISTERS DLYCNT TO TOLIDT 
; IN LOCATIONS 130-156 


MOV #OTESAV, RO ;POINT TO SAVE AREA 
29S: MOV (R4)+, (RO)+ -SAVE A REGISTER 
CMP #TOLIDT-DLYCNT+DTESAV,RO ;FINISHED? 
BHIS 29 ;NO-- SAVE SOME MORE 
Rus TOLIDT#2 


SET Rl= STATUS REGISTER 
; R4= DIAG2 REGISTER 

DO *DIAGNOSTIC RESET’ TO CLEAR DOORBELL AND BYTE COUNT 
; LOADED FLAG 

éss 


TST (R4)+ 

MOV R4Y,R1 ; SO DOES R1 

MOV #ORESET, RO ;SETUP RO FOR *DIAGNOSTIC RESET’ 
MOV RO, (R1)+ ;R1 POINTS TO STATUS REGISTER 
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5 
010014 


; 173724 005061 
:173726 177744 
;173730 005061 
;173732 177764 


173734 032711 
;173736 OO4O00 


;173740 001775 
;173742 010014 


3173744 005061 
3173746 177766 
; 173750 Ore res 
:17375e 107400 
3173754 177762 
3 173756 032711 


173770 100000 
173772 005007 


18-FEB-77 


R 


30S: 


403: 


JO6 


15:18 PAGE 74 


EGISTERS: 
RO - 


Rl -- 
RY -- 


THE -10 WILL NOW START READING -1] MEMORY, AS SOON AS WE SET 
THE TO -10 ADDRESS. 


CLR 
CLR 


BIT 


BEG 
MOV 


DRESET (DIAGNOSTIC RESET FUNCTION) 

STAT (STATUS RE 

DIAG2 (DIAGNOSTIC REGISTER #2, WHERE DRESET IS) 

WHEN FINISHED, THE -10 WILL RING OUR DOORBELL. 
DLYCNT-STAT(R1) ;SET DTE20 FOR MAXIMUM DELAY (ZERO) 
TOLOAD-STAT(R1) ;START DUMPING -11 MEMORY TO -10 


STARTING AT LOCATION 0 
b701108, (R1) ;IS DOORBELL RINGING (TRANSFER COMPLETE)? 


;NO-- WAIT FOR DOORBELL 


30$ 
RO, (RY) ;YES-- CLEAR DOORBELL AND ERROR FLAGS 


NOW THE -10 WILL GIVE US A 256 WORD BOOTSTRAP TO BE READ 
ue oA utter STARTING AT LOCATION O. 


WHEN FINISHED 
RING OUR DOORBELL, AND WE WILL START EXECUTION 


OF THE LOADED CODE AT LOCATION’ O. 


CLR 
MOV 


TOLLAD-STAT(R1) 
#IFLOP! <<-256.>87777>, TOLIBC-STAT(R1) 


;START INPUT TO LOCATION 0 
3256 WORDS, INTERRUPT 
: 


~10 WHEN DONE 
#TO11DB, (R1) ;DOORBELL RINGING (LOAD FINISHED)? 


4O$ NO-- WAIT UNTIL DONE 

RO, (R4) CLEAR DOORBELL RINGING 

#BiT15,RS :SET RS: BITIS= 1, BITO= 0 

- TO SAY BUTTON #4 PRESSED 

Pc ;G0 TO LOADED CODE, STARTING AT 
: LOCATION O 


KO6 
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OZBMDH.P ROM CONTENTS TABLES 

3247 ;BM873F - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(657) 22-AUG-75 10:30 PAGE 8 
: 

3249 : FILL TO END OF ROM 

3252 173774 oo0004 ’ .PRINT <1000>-<.-ROMORG> ;FREE BYTES AT 1000 

3253 005774 o00000 ;173774 O00 “BYTE 0 

3254 173775 000 "BYTE 0 

3255 005776 END. YF: 

3256 005776 OO0000 ;172776 000 .BYTE O 

3257 173777 000 "BYTE 0 

3258 ; 

3259 : 

3260 : 

3261 :174000 000001 PASS2: .END 

3262 : 


3263 : 


LO6 


OCTOBER 1976 MACY11 27(663) 18-FEB-77 15:18 PAGE 76 
DZBMDH.P11 ROM CONTENTS TABLES 


3264 O06000 MAP.YG: 
3265 ; THE FOLLOWING IS A REPRODUCTION 
3266 [OF THE ROM PROGRAM FOR BM873YG. 
3267 IT IS HERE FOR COMPARISON TO THE 
3268 “ACTUAL ROM AND FOR REFERENCE 
seb *BM873G - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 1-JUN-76 09:14 PAGE 1 
3271 : .TITLE 8M873G - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM 
3673 . ; THIS IS THE CODE TO BE ENCODED IN THE BOOTSTRAP ROM ON THE BM873-YG BOARD 
3275 ; 
3276 : MODULE: BM873G 
3277 : 
3278 : DATE: JUNE 1976 
3280 : AUTHOR: RICH MURATORI 
3283 : COPYRIGHT (C) 1976 DIGITAL EQUIPMENT CORPORATION 
3284 : ALL RIGHTS RESERVED 
3285 : 
3286 ; 
3287 : -ENABLE ABS, AMA 
3289 : ASCII CHARACTER DEFINTIONS 
35 53 t ; oo0040 SPACE= 40 sASCII SPACE 
3545 pppoe cre : t2 sell PINE FE 
; = ; 
3294 : 000015 CR= 15 ASC EARIABES RETURN 
3295 : pa00s4 COMMAS 54 :ASCII COMMA 
3296 : ACK= 6 ASC EDGE 
3297 : 000025 NAK= 25 ASCII NEG ACKNOWLEDGE 
5 3 : BUFFER AREAS 
3301 ; 002100 {INBUF= 2100 sLINE I T Burr ER 
3302 : 002310 DEABUF= 2310 DEASCII BUFFER 
33h ie : DLIIE REGISTER DEFINITIONS 
306 : 1 RCSR= 1 ;DLIIE REC ATUS REGISTER 
tay Hemme flasee: | BLE REINER Br 
3308 : 176004 OLXCSR= 176004 *DLIIE TRANSM FER STATUS REGISTER 
303 : 176006 OLXBUF= 176006 :DLIIE TRANSMISSION BUFFER 
3311 ; 100000 SITIS=1 
$318 : 000340 pay 135400000 sPRIORITY LEVEL 7 
3314 DTE20 REGISTER DEFINITIONS 
3316 : 174400 OLYCNT=174400  ;DELAY C WORD 
3317 : 174414 TOLOBC=174414  ;TO-10 POP-11 MEMORY ADDRESS 


MO6 
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; 174416 TO11BC=174416' s10-11 pyre COUN 
3319 ; 174420 =174420 it 10 PDP-11 HERORY ADDRESS 
3320 ; 174422 TOLIAD=1744e2 ;TO-11 POP-11 MEMORY ADDRESS 
3321 ; 174426 9=TOLLOT=17442e6 ie 1 POP-11 DATA i WORD 
3322 ; 174434 STAT=174434 US 
3323 ; TO11BC RicISTER BIT DEFINITIONS 


NO6 
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3325 ;BM873G - K.10 (PDP-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 1-JUN-76 09:14 PAGE 1-1 
3327 : 100000 IFLOP=100000  ;1 FLIPFLOP BIT 

3350 DIAG2 DEFINITIONS 

Ee : 000100 SRESET=000100  ;DTE RESET 

3334 ; STAT REGISTER DEFINITIONS 

$336 ; 004000 *o1108=004000 ;-10 REQUESTED -11 INTERRUPT * 

3338 ; 

$339 ; DEFINITIONS . . . 

EEAD ; 000040 ROTOR7= 40 ;SAVE RO TO R7 IN 40 TO S6& 

3343 ; 000130 #TesAv= 130 sSAVE FIRST 12 OTE REGISTERS DLYCNT TO TOLLDT: 
3344 : ; IN LOCATIONS 130-156 

3346 173000 omorc= 173000 aon STARTS AT 773000 

3348 : ESTABLISH ROM ORIGIN 


334 
3350 ; 173000 . =ROMORG 


OCTOBER 1976 
DZ8MDH.P11 


006022 
006024 
006026 


006030 
006032 
006034 


006036 
006040 


MACY11 27(663) 


ROM CONTENTS TABLES 
;BM873G - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 1-JUN-76 09:14 PAGE 2 


oos00S 


012701 
00 


3173000 oooo0s 


4 
3173016 100375 
:173020 000403 


3173022 000000 
:173024 173000 
;173026 000340 


; 173030 Leh 3? 


76006 
:173034 105711 
3173036 001365 
3173040 005005 


3173042 012701 
3173044 0 


'173082 100375 


BO? 
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-SBTTL BOOT FROM MASTER FRONT END 
;EXTERNAL BUTTON #1 -- LOAD FROM MASTER FRONT END VIA DLIIE 
; DEPRESSING BUTTON #1 CAUSES A LOADER UTILITY PROGRAM (DGQDE) TO BE LOADED 


:T0 te rie THE FOLLOWING CONDITIONS MUST EXIST: 

: 1) i ADER Utty ER PRO eo — MUST BE RUNNING UNDER KLDCP 
2) THE ’.All’ FILE FOR AGUDE MUST BE AVAILABLE ON THE SELECTED LOAD 

: MEDIUM IN MASTER NT 

; 3) THE i FRONT END AND THE SECONDARY FRONT END MUST BE CONNECTED 
; L11E’S AND A NULL MODEM. 

; 4) THE SECONDARY FRONT END MUST HAVE A TTY CONNECTED TO IT. 


;SEND BOOTSTRAP REQUEST TO MASTER FRONT END VIA THE DLIIE. THE 
“REQUEST IS IN THE FORM ’B <CR><LF>’, WHICH CALLS FOR THE 
“BOOTING OVER OF BGODE A ll. 
BUTONI: RESET CLEAR THE WORLD 
MOV #2000, SP SETUP STACK POINTER 


MOV #DGQDE,R1 ;ADDRESS OF SYNC + BOOT REQUEST 
SENDIT: TSTB $@#DLXCSR 31S DLIIE READY TO TRANSMIT 

BPL SENDIT ;LOOP UNTIL IT IS 

1$ ‘BRANCH AROUND POWER -FAIL VECTOR 

rrr errr Perr errr rrr rr reer ener tr mare Rarr a Tate 
; REQUIRED POWER-FAIL VECTOR - MUST BE AT 173024 

-WORD OQ ;FILLER 

-WORD ROMORG, PR7 


5 RERRRE REEL LAA RA AER RA ERR R ERE EEE EE LALLA AERA LAER ER ERE REERERE 


1S: MOVB §(R1)+,3#DLXBUF ;LOAD A CHAR INTO OUTPUT BUFFER 
TSTB (R21) sANY MORE CHARS TO SEND? 
BNE SENDIT ; BRAN NCH IF MORE CHARS To SEND 
CLR RS LEAR SYNC RECEIVED F 
;WAIT TO RECEIVE BOOT PROGRAM (obabe, All), ONE ASCTTZED CHAR AT 
TIME, ONE LINE AT A TIME. 
AXTLIN: MOV #LINBUF , R1 sADDRESS OF LINE INPUT BUFFER 
NXTCHR: TSTB  @#DLRCSR :CHAR RECEIVED YET? 
BPL NXTCHR ;BRANCH IF STILL TO WAIT 


N 


;PROCESS THE RECEIVED ASCII 
;SIGNAL IS RECEIVED. A LI 
;NUMBER OF CHARS PER LINE I 


ED CHAR. IGNORE ALL pers UNTIL a, ht 
FEED MARKS THE END OF ALINE. THE M 
131, MORE THAN THAT is" aN ERROR. 


nim 
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006056 


006102 
006104 
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113711 
76 

142711 

0002! 


001410 


3173054 113711 2S: 
O0S&6 176002 


173104 001410 


MOVB 
BICB 
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@#DLRBUF , (R1) 
#200, (R1) 


NXTCHR 
(R1), #SYN 


3$ 


RS 
NXTCHR 
(R1)+, #LF 


PACKIT 


;READ CHAR INTO LINE INPUT BUFFER 
;CLEAR HIGH ORDER BIT OF CHAR 


;BRANCH IF YES, IGNORE NULLS 
"TS CHAR THE SYNC SIGNAL 


;BRANCH IF YES 
"HAS SYNC ALREADY BEEN RECEIVED" 
BRANCH IF NOT, IGNOR RE C 

IS CHAR A LINE FEED? 


;BRANCH IF YES, END OF LINE 


DO? 
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3418 ;BMB73G - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 1-JUN-76 09:14 PAGE 2-1 
3420 006106 020127 ;173106 020127 CMP R1, WLINBUF+132. ;HAVE WE REACHED THE END OF THE BUFFER? 
3421 006110 002304 ;173110 002304 
3422 006112 003755 ;17311e 003755 BLE NXTCHR sBRANCH IF NOT, GET REST OF LINE 
3423 006114 004737 ;173114 004737 JSR PC, NAKSND SEND A NEG ACKNOWLEDGE 
3424 006116 173346 i 173116 173346 
sige 006120 000000 ;173120 000000 HALT TOO MANY CHARS IN A LINE 
3427 O06122 O05205 ;173122 005205 3S: INC RS ;SET SYNC RECEIVED FLAG 
sige 006124 000750 ;173124 000750 BR NXTCHR GO GET NEXT 
3430 ‘ ; UNSCRAMBLE_THE ASCIIZED CHARS INTO 16- -BIT WORDS. THE FORMAT OF A 
3431 :LIN DCN TALADDR, DATA, DATA, ...,DATA, CHKSUM<CR> <LF> 
3432 t HERE WROCNT IS THE WORD’ COUNT 
3433 : LADDR 1S THE LOAD OADDRESS 
3434 : DATA IS LOAD DATA 
s436 : CHKSUM 15 THE CHECKSUM 
3437 006126 012703 ;173126 012703 PACKIT: MOV #DEABUF , R3 GET ADDRESS OF DE-ASCIIZED BUFFER 
3438 906130 002310 173130 002310 
3439 006132 012701 ;173132 012701 MOV #LINBUF ,R1 :GET ADDRESS OF INPUT BUFFER 
3440 0061 100 3173134 002100 
3441 006136 122127 3173136 122127 CMPB Ss (R1)+, WE FIRST CHAR IN LINE SHOULD BE AN ’E” 
3442 0061 0105 +:173140 000105 
3443 006142 001403 3173142 001403 BEQ 1$ sBRANCH IF IT IS 
3444 006144 004737 ;173144 004737 JSR PC, NAKSND “SEND A NEG ACKNOWLEDGE 
3445 006146 173346 3173146 173346 
Ean 006150 000 ;173150 000000 HALT s INCORRECT LINE SYNTAX, FIRST CHAR NOT AN E 
3448 006152 {22127 ;173152 122127 1S: CMPB = (R1)+, #SPACE © ;SECOND CHAR SHOULD BE A SPACE 
3448 006154 O00040 173154 000040 
3450 006156 001403 ;173156 001403 BEQ NXTWRD sBRANCH IF IT IS 
3451 006160 004737 ;173160 004737 JSR PC, NAKSND SEND A NEG ACKNOWLEDGE 
3452 006162 173346 :173162 173346 
3453 006164 00 +;173164 000000 HALT INCORRECT LINE SYNTAX, 2ND CHAR NOT A SPACE 
3455 006166 Hos002 ;173166 005002 NXTWRD: CLR R2 ;CLEAR WORD FORMER 
3456 006170 112100 ;173170 112100 15: MOVB  (R1)+,RO “READ CHAR FROM LINE BUFFER 
3457 006172 122700 ;17317e 122700 MPB —s- #CR, RO TS CHAR A CARRIAGE RETURN 
3458 006174 173174 000015 
3459 006176 001774 3173176 001774 BEQ 1S sBRANCH IF YES 
3460 006200 122700 ;173200 122700 CMPB Ss &LF, RO TS CHAR A LINE FEED 
3461 006202 12 ;17320e 000012 
3462 006204 001422 +;173204 001422 BEQ 3$ :BRANCH IF IT IS 
3463 006206 122700 ;173206 122700 CMPB  —s- &COMMA, RO 1S CHAR A COMMA 
3464 006210 000054 ;173210 000054 
3465 OObel2 OO141S ;173212 001415 BEQ 2 :BRANCH IF IT IS 
3466 006214 302 +173214 006302 ASL Re :SH HIFT WORD OVER TO MAKE ROOM FOR 
3467 062816 006302 ;173216 006302 ASL Re “NEXT CHA 
3468 O06220 006302 ;173220 006302 ASL Re 
3469 O0b222 O00402 ;17322e 00402 BR 4§ “BRANCH AROUND POWER-FAIL VECTOR 
3470 (HEHEHE HEHEHE GARE IEE 
3471 : REQUIRED POWER-FAIL VECTOR - MUST BE AT 173224 


= 
EQ? 
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3472 : 

3473 006224 173000 ;173224 173000 -WORD ROMORG,PR7 

see 006226 000340 ;173226 000340 

3476 : 5 REAR REE REE EEE EEE EEA AAA RARER RARER RRR E EERE AERA EEL E RES 
3478 006230 606302 ;173230 006302 4S: ASL Re 

3479 006232 006302 ;173232 006302 ASL Re 

3480 006234 006302 ;173234 006302 ASL Re 

3481 006236 O42700 ;173236 042700 BIC #100,R0 ;CLEAR ASCIIZED BIT 

3482 O06240 000100 3 173e40 000100 

3483 O06e42 050002 ;17324e 050002 BIS RO, Re ; INSERT NEW CHAR INTO WORD 
3484 O06244 000751 ;173244 000751 BR 1$ GO GET NEXT CHAR 


a5 , 
3486 00624 010223 ;17324% 010223 2S: MOV Re, (R3)+ ;STORE WORD IN BUFFER 


u - 
FO? 
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3487 ;BM873G - KL1O (PDP-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 1-JUN-76 09:14 PAGE 2-2 
34g9 006250 000746 ;173250 000746 BR NXTWRD GO FORM NEXT WORD 
3431 oob252 010223 ;173252 010223 3s: MOV Re, (R3)+ ;STORE CHECKSUM IN BUFFER 
’ 

3493 VERIFY THAT THE CHECKSUN IS ZERO. 
3494 006254 012702 ;173254 012702 ¢HCKIT: MOV #DEABUF , Re “ADDRESS OF BUFFER 
3495 006256 002310 ;173256 002310 
3496 006260 005000 ;173260 005000 CLR RO ; CLEAR CHEC KSUM 
3497 006262 062200 ;17326e 062200 15: ADD (R2)+,RO *ADD NEXT WORD TO CHECKSUM 
3498 006264 020203 ;173264 020203 CMP R2,R3 REACHED END OF BUFFER YET 
3499 -173266 002775 BLT 1$ : BRA 
3500 006270 005700 5173270 005700 TST 0 ;1S CHECKSUM = To 
3501 006272 001403 3173272 001403 BEQ LOADIT BRANCH I 
3502 006274 004737 :173274 004737 JSR PC, NAKSND *SEND A NEG ACKNOWLEDGE 
3503 006276 17334 :173276 173346 
3508 006300 o00000 :173300 o00000 HALT ; CHECKSUM ERROR 
3506 . ;LOAD THE RECEIVED DATA WORDS INTO THE DESIGNATED PLACE IN MEMORY. 
3507 *@ WORD COUNT OF ZERO INDICATES A TRANSFER BLOCK. START EXECUTING 

08 : THE LOADED PROGRAM AT THE SPECIFIED ADDRESS. 

09 006302 013700 ;173302 013700 LOADIT: MOV DEABUF , RO “GET LOAD WORD COUNT 
3510 006304 002310 :173304 002310 

it 006306 O01413 :173 BEQ 2$ ;BRANCH IF IT’S ZERO (A TRANSFER BLOCK) 
3512 006310 012702 ;173310 012702 MOV #DEABUF+4,R2 § ;ADDRESS OF FIRST DATA WORD 
3513 006312 002314 ;173312 002314 
3514 006314 013701 ;173314 013701 MOV DEABUF+2,R1 ;GET LOAD ADDRESS 
3515 006316 002312 :173316 002312 
3516 006320 112221 ;173320 112221 1S: MOVB  (R2)+, (R1)+ ONE. bila FROM BUFFER TO MEMORY 
3517 006322 112221 3173322 112221 MOVB  (Ro)+;(R1)+ nov ATA FROM BUFFER TO MEMORY 
3518 006324 005300 ;173324 005300 DEC RO ORD COUNT 
3519 006326 003374 ;173326 003374 BGT 1$ + BRANEH ie BLL DATA IS LOADED 
3520 006330 004737 173330 004737 JSR PC, ACKSND :GO SEND A 
3521 006332 173354 ;173332 173354 
3508 006334 O00642 ;173334 000642 BR NXTLIN ;GO GET NEXT LINE 
3524 006336 737 ; 173336 004737 25: ISR PC, ACKSND :GO SEND AN ACK 
3525 006340 173354 3173340 173354 
3526 O06342 013707 53340 013707 MOV DEABUF +2, PC ;START ADDRESS OF LOADED PROGRAM 
3587 006344 002312 :173344 002312 
3529 : 
3530 ;NAKSND IS USED TO SEND A NEG ACK BACK TO THE MASTER FRONT END. 
3531 “ACKSND IS USED TO SEND AN ACK. 

32 006346 012700 ;173346 012700 ANAKSND: MOV #NAK, RO ;SETUP ASCII NEG ACK 
3533 006350 025 $1 533cp 000025 

00635e O0N402 ;1733Se 000402 BR RESPND ;GO SEND IT 

3339 006334 412700 3173368 116700 ACKSND: MOVB = #ACK,RO ‘SETUP ASCII ACK 
3537 006360 105737 ;173360 105737 RESPND: TSTB § adeDLXCSR :IS TRANSMITTER READY? 
3538 006362 176004 ;173362 176004 
3539 006364 100375 ;173364 100375 BPL RESPND ;WAIT TIL IT IS 


3540 006366 110037 ;173366 110037 MOVB RO, d#OLXBUF ;SEND ACK/NAK 


m7 
GO? 
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3541 006370 176006 ;173370 176006 


$42 006372 000207 ;173372 000207 RTS PC ;RETURN TO CALLING ROUTINE 
3544 006374 641001 ;173374 001 OGQDE: .BYTE SYN 

3545 : 173375 “ASCIZ /B/<CR><LF> 
3546 006376 O0S01S ;173376 O0S015 

3547 006400 O00000 ;173400 000 

3548 7173401 000 .BYTE O 

3549 006402 o00000 ;173402 000 "BYTE 0 

3550 7173403 O00 "BYTE O 

3551 OO6404 op0000 ;173404 000 "BYTE 0 

3552 7173405 000 "BYTE O 

3553 O06406 o00000 :173406 000 ‘BYTE 0 

3554 173407 000 "BYTE 0 

3555 006410 o00000 ;:173410 000 “BYTE O 


La J 
HO ¢ 
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3556 ;BM873G - KLIO (POP-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 1-JUN-76 09:14 PAGE 2-3 
3558 3173411 0c BYTE 0 
3559 o06412 OO0000 3173412 000 “BYTE 0 
3560 :173413 000 "BYTE 0 
3561 006414 op0000 :173414 000 "BYTE 0 
3562 173415 000 ‘BYTE 0 
3563 006416 OO0000 ;173416 000 "BYTE 0 
3564 :173417 O00 "BYTE 0 
3565 006420 o00000 :173420 000 “BYTE 0 
3566 :173421 000 "BYTE 0 
3567 O06422 000000 :173422 000 "BYTE 0 
3568 :173423 000 “BYTE 0 
3569 006424 op0000 3173424 000 “BYTE 0 
3570 173425 000 ‘BYTE 0 
3571 O06426 OO0000 ;173426 000 "BYTE 0 
3572 '173427 000 ‘BYTE 0 
3573 006430 O00000 :173430 000 "BYTE 0 
3574 173431 000 ‘BYTE 0 
3575 006432 o00000 ;173432 000 ‘BYTE 0 
3576 :173433 000 ‘BYTE 0 
3577 006434 O00000 ;173434 000 "BYTE 0 
3578 173435 000 "BYTE 0 
3579 006436 O00000 3173436 000 "BYTE 0 
3580 :173437 000 "BYTE 0 
3581 O06440 OCO0000 3173440 000 "BYTE 0 
3582 173441 00 “BYTE 0 
3583 O0b442 000000 3173442 000 "BYTE 0 
3584 173443 000 "BYTE 0 
3585 006444 OO0000 3173444 000 ‘BYTE 9 
3586 173445 000 "BYTE 0 
3587 O0644 000000 :173445 000 "BYTE 0 
3588 :173447 000 "BYTE 0 
3589 O064SO O00000 :173450 000 "BYTE 0 
3590 7173451 000 ‘BYTE 0 
3591 O064S2 O00000 :173452 000 “BYTE 0 
3592 3173453 000 "BYTE 0 
3593 006454 OO0000 :173454 000 ‘BYTE 0 
3594 173455 000 "BYTE 0 
OO064S6 OOO000 ;173456 000 "BYTE 0 
3596 :173457 000 "BYTE 0 
3597 OOE460 OO0000 ;173460 000 "BYTE 0 
3698 173461 000 ‘BYTE 0 
93 006462 OO0000 :173462 000 "BYTE 0 
3600 173463 000 ‘BYTE 0 
3601 O06464 OO0000 ;173464 000 ‘BYTE C 
3602 7173465 000 ‘BYTE 0 
3603 OO466 OO0000 ;173466 000 ‘BYTE 0 
3604 173467 900 ‘BYTE 0 
05 006470 o00000 ;173470 "BYTE 0 
3606 ;173471 000 ‘BYTE G 
07 06472 O00000 ;173472 000 ‘BYTE 0 
3608 :173473 000 "BYTE 0 
3603 006474 900000 ;173474 O00 ‘BYTE 0 


I0 


OCTOBER 1976 MACY11 27(663) 18-FEB-77 15:18 PAGE 86 


OZBMDH.P11 ROM CONTENTS TABLES 
3610 3173475 000 BYTE OQ 
3611 006476 O00000 ;173476 000 -BYTE 0 


JO? 
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wig ;B8M873G - KL1O (PDP-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 1-JUN-76 09:14 PAGE 2-4 
3614 3173477 =§=©000 -BYTE 0 
3615 006500 000000 ;173500 000 -BYTE 0 
3616 3173501 000 -BYTE QO 
3617 006502 000000 ;173502 000 -BYTE 0 
3618 3173503 000 -BYTE 0 
3619 006504 O00000 ;173504 000 -BYTE Q 
3620 3173505 000 -BYTE OQ 
3621 006506 O00000 ;173506 #000 -BYTE QO 
3622 3173507 000 -BYTE OQ 
3623 006510 000000 ;173510 000 -BYTE Q 
3624 3173511 000 -BYTE Q 
3625 006512 000000 ;1735ie 000 -BYTE 0 
3173513 000 -BYTE QO 
3627 006514 000000 ;173514 000 -BYTE QO 
3173515 000 -BYTE 0 
3629 006516 000000 ;173516 000 BYTE QO 
3630 3173517 000 BYTE 0 
3631 006520 000000 ;173520 000 YTE QO 
3e 31735e1 000 BYTE QO 
BR mse: omen 
’ 
omc comms ie eR 
’ 
on: ae a oe 
’ 
3639 006530 000000 ;173530 000 BYTE QO 
3640 ; 173531 000 BYTE 0 
gy mse om ee A 
’ 
3643 006534 O00000 ;173534 000 BYTE 0Q 
; 173535 BYTE OQ 
006536 O00000 ;173536 000 BYTE QO 
SENG ; 173837 000 BYTE OQ 
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;BM873G - KL1O (PDP-ii1) 256 WORD BOOTSTRAP ROM MACY11 27(663) 


173540 
ES BE 
FS Bee 
’ 


3173550 010640 
; 0S40 


3173560 010240 
3173562 010140 
i 173564 014000 

000177 
1} 570 BONeeM 


;173572 000000 


KO 
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( 


1-JUN-76 09:14 PAGE 3 


SBTTL_ REGISTER SAVE ROUTINE 


MOV 
RET: 


REGISTER SAVE ROUTINE 


REGSAV IS CALLED TO SAVE THE GENERAL REGISTERS RO-R7 
IN MEMORY AT 40-S6 (LOCATION ROTOR7). 


CALLING SEQUE 
MOV 


NCE: 
RO. ROTOR7+0 
#RET TRO 


BR REGSAV 
«RETURN HERE> 
ALL REGISTERS RESTORED 


. =ROMORG+540 
REGSAV: MOV RO, ROTOR7+16 

MOV #ROTOR7+16,RO 

MOV SP, -(RO) 

MOV RS, -(RO) 

MOV RY’ -(RO) 

MOV R3;-(RO) 

MOV Re, -(RO) 

MOV R1/-(RO) 

MOV -(RO) RO 

IMP JROTOR7 +16 

WORD O 


;SAVE RO AS PC IN S6 


;RO NOW POINTS TO S6 


;SAVE SP IN 54 
;SAVE RS IN S2 
;SAVE RY IN SO 
;SAVE R3 IN 46 
tv si IN 44 
;9A 1 IN 42 


VE _R 
RESTORE RO FROM 40 
GO TO SAVED PC 


;FILLER WORD 
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3684 
3685 
86 


006574 
006576 
006600 
00660e 
006604 
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;BM873G - KL1O (PDP-11) 


O0-0000 
bo bas bs be be he be pe Re 


000040 


173574 


NNNN N 
mergers ae pleas = 
uv 
Ss 


rs 
Be 
é 


staat 012706 
3173636 000004 
173640 062704 


17364e 000040 
ie aeae 108704 


3173646 100770 
3173650 032764 


LO? 
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-SBTTL DUMP_AND BOOTSTRAP THROUGH DTE20 
; INTERNAL BUTTON #4 -- DUMP AND BOOTSTRAP THROUGH DTE20 


btestz= 40 ;EACH DTE OCCUPIES 20 WORDS IN EXTERNAL PAGE 

S BUTTON #4 -- INITIATED BY ’-10 RELOAD -11’ BIT 

. =ROMORG+574 

BUTONY: MOV _—«RO, ROTOR7+0 ;SAVE RO IN 40 7 
MOV —- #108, RO ;SET RETURN ADDRESS IN RO | 
BR REGSAV ;SAVE R1-R7 


} REGISTERS SAVED-- LOOK FOR THE DTE2O WHICH PUSHED THE BUTTON 
; THE QTE WHICH PUSHED THE BUTTON SHOULD HAVE THE DOORBELL | 
; RINGING VALUE 1365 (OCTAL) IN IT’S 

TO 10 BYTE COUNT TO108C. | 


NXM (TIME-OUT) TRAP IS USED TO SKIP NON-EXISTANT DTE20’S. 
1 


OS: CLR RS ;ADDRESS LOCATION ZERO 
MOV (RS)+,RO 0 IN RO 
MOV (R5)+-R1 ‘SAVE 2 IN RI 
MOV (R5),Re :SAVE 4 IN Re 
MOV #215; (RS)+ SET NXM TRAP ADDRESS IN 4 
MOV (RS),R3 ;SAVE 6 IN R3 
MOV BPR? (RS) ‘SET PRIORITY FOR NXM TRAP 


LOOP THROUGH ALL DTE’S 

bos: MOV #OLYCNT-DTESIZ,R4Y ;POINT TO DTE # -1°S DELAY COUNT REGISTER | 
; (WILL BUMP TO # 0) | 
HERE ON NXM TRAP-- RESET SP AND TRY NEXT DTE 


bis: mov * 44,SP {SET SP TO 4, STACK IS LOCATIONS 2 AND 0 ! 
bos: = ADD «= wDTESIZ,RY ;BUMP TO NEXT DTE’S EXTERNAL PAGE ADDRESS 
STB RM ;18 THIS THE END OF THE OTE’S? 
j ROTE THAT THE LAST OTE TS AT 774540 
BMI 208 i VEG START A err erat eR, UNTIL 8 OTE 
BIT #TO110B, star-crvinttess ;DOORBELL R NGING? 


MO? 
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3738 006652 po4o00 $1 eeee 004000 


3739 006654 000034 ;173654 000034 

3740 006656 001770 ;173656 001770 BEQ =s« 22S “NO== TRY NEXT DTE 

3741 06660 O26417 3173660 026417 CMP _ TOLOBC-DLYCNT(RYS, (PC) ;DOES THIS ONE HAVE 1365 
3742 O06662 000014 ;173662 000014 

3743 N IT’S TO -10 BYTE COUNT? 
3744 006664 001365 ;173664 001365 BNE 225 ;NO-- thy ANOTHER DTE 


OCTOBER 1976 
DZBNDH.P11 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 
3754 006670 
3755 006672 
3756 O066 
3757 
3758 
3759 
3760 
3761 006676 
3762 006700 
3763 006702 
3764 O06 
3765 706 
3766 006710 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 006712 
3778 006714 
37739 006716 
3780 006720 
3781 006722 
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;BM873G - KL1O (PDP-11) 


3173666 010315 
3173670 010245 
3173672 010145 
3173674 010045 


NO? | 
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256 WORD BOOTSTRAP ROM MACY11 27(663) 1-JUN-76 09:14 PAGE S 


23s: MOV 
CMP 


WE HAVE FOUND THE DTE WHICH PUSHED THE BUTTON 
ADDRESS OF DLYCNT REGISTER IS IN RY 


MOV —sR3, CRS) ,PEBTORE LOCATION 6 

MOV —s-R2, = (RS) :4 

MOV = RI-(R5) pe: , 
MOV «RO, (RS) “EO 


SAVE FIRST 12 DTE REGISTERS DLYCNT TO TOLLOT 
IN LOCATIONS 130-156 


MOV #DTESAV, RO ;POINT TO SAVE AREA 


(R4)+, (RO)+ «SAVE A REGISTER 
#TOLIDT-DLYCNT+DTESAY,RO ;FINISHED? 


BHIS 29§ ;NO-- SAVE SOME MORE 
R4= TOLIDT+2 


SET Rl= STATUS REGISTER 
R4= DIAGe REGISTER 


DO *DIAGNOSTIC RESET’ TO CLEAR DOORBELL AND BYTE COUNT 
LOADED FLAG 


TST (R4)+ 

MOV R4Y,R1 ;.80 DOES R1 

MOV #DRESET , RO ;SETUP RO FOR 'DIAGNOSTIC RESET’ 
MOV RO, (R1)+ ;R1 POINTS TO STATUS REGISTER 


BO8 
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3768 ;BM873G - KL1O (PDP-11) 256 WORD BOOTSTRAP ROM MACY11 27(663) 1-JUN-76 09:14 PAGE 6 
3784 ; 

3785 ; REGISTERS: 

3786 : RO -- DRESET (DIAGNOSTIC RESET FUNCTION) 

3787 : Rl -- STAT (STATUS REGISTER) 

es : R4Y -- DIAG2 (DIAGNOSTIC REGISTER #2, WHERE DRESET IS) 
3790 ; THE -10 WILL NOW START READING -11 MEMORY, AS SOON AS WE SET 

acl : THE TO -10 ADDRESS. WHEN FINISHED, THE -10 WILL RING OUR DOORBELL. 
3793 006724 005061 ;173724 005061 ’ CLR DLYCNT-STAT(R1) ;SET DTE20 FOR MAXIMUM DELAY (ZERO) 
3794 006726 177744 3173726 177744 

3795 006730 005061 };173730 005061 CLR TOLOAD-STAT(R1) ;START DUMPING -11 MEMORY TO -10 
3796 006732 177764 ;173732 177764 

3797 : ; STARTING AT LOCATION 


0 
3798 006734 032711 ;173734 032711 30S: BIT #T011DB, (R1) 15 DOORBELL RINGING (TRANSFER COMPLETE)? 
3799 006736 OO4000 ;173736 004000 
3800 006740 001775 ;173740 001775 BEQ 30S ;NO-- WAIT FOR DOORBELL 


3801 006742 010014 3173742 010014 MOV RO, (R4) ;YES-- CLEAR DOORBELL BND ERROR FLAGS 
5] 

3803 ; NOW THE -10 WILL GIVE US A 256 WORD BOOTSTRAP TO BE READ 

3804 ; INTO -11 MEMORY STARTING AT LOCATION 0. WHEN FINISHE 

3805 ; THE -10 WILL RING OUR DOORBELL, AND WE WILL START EXECUTION 

3806 ; OF THE LOADED CODE AT DOCATION’ 0. 

3808 006744 005061 ;173744 005061 CLR TOLIAD-STAT(R1) ;START INPUT TO LOCATION O 

3809 006746 177766 173746 177766 

3810 006750 O1e761 173750 012761 MOV #IFLOP! <<-256.>87777>, TOLIBC-STAT(R1) ;256 WORDS, INTERRUPT 

3811 006752 107400 ;173752 107400 

Ble 006754 177762 ;173754 177762 ca nee tee 

3814 006756 632711 ;173756 032711 40$: BIT #TO11DB,(R1) | DOORBELL RINGING (LOAD FINISHED)? 

3815 006760 OO4000 ;173760 004000 

3816 006762 001775 5173762 001775 BEQ 4O$ ;NO-- WAIT UNTIL DONE 

3817 006764 010014 5173764 010014 MOV RO, (RY) :CLEAR DOORBELL RINGING 

3818 006766 012705 ;173766 012705 MOV #BiT15,RS ;SET RS: BITIS= 1, BITO= 0 

3819 006770 100000 ;173770 100000 

3820 ; ; TO SAY BUTTON #4 PRESSED 

3821 006772 OoS5007 ;173772 005007 CLR PC GO TO LOADED CODE, STARTING AT 

3822 : : LOCATION O 

3823 ; 

3824 : FILL TO END OF ROM 

3826 : 

ses, errs cmon: as SEE 

3829 006776 0, Ye 

3830 006776 000000; ;173776 000 -BYTE 0 

3831 173777 __000 -BYTE 0 


3832 ; 000001 - END 


CO8 
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3833 007000 
3834 mrue FOLLOWING IS A REPRODUCTION 
PROGRAM FOR BM873YH. 


3835 OF THE ROM 
3836 "IT IS HERE FOR COMPARISON TO THE 

3837 “ACTUAL ROM AND FOR REFERENCE 

3838 :BM873H - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(666) 17-AUG-76 16:19 PAGE 1 
3840 : .SBTTL TITLE PAGE 

3841 “TITLE BM873H - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) 
3843 : COPYRIGHT (C) 1975, 1976 DIGITAL EQUIPMENT CORPORATION 

3544 : ALL RIGHTS RESERVED 

3B46 : THIS IS THE CODE TO BE ENCODED IN THE BOOTSTRAP ROM ON THE BM873-YH BOARD 
3848 : 

3849 : MODULE: BM873H 

3850 ; 

3851 : DATE: 10-MAR-76 

3852 : 

3853 : AUTHOR: TOM PORCHER 

3854 : 

3855S : 

3856 : ENABLE ABs, AMA 

3857 “LIST 

3858 : " MCALL SDEF 

3859 ; 000000 SDEF 


DO8 
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3860 ;BM873H - KLIO (POP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACYI1 27(666) 17-AUG-76 16:19 PAGE 2 

3862 : .SBTTL MACROS AND DEFINITIONS 

a 3 ‘ 

3865 : MACRO TO FILL TO A LOCATION (RELATIVE TO ROM ORIGIN) WITH ZERO BYTES 
g 

3867 : .MACRO FILLTO LOC 

3868 : -IFGE <LOC>-<.-ROMORG> 

3869 : -IFG <LOC)-<.-ROMORG> 

3870 : -IFDF PASS2 

3871 : PRINT <LOC>-<.-ROMORG> ;FREE BYTES AT LOC 

3872 : oc 

3873 : .ENDC 

3874 : "REPT <LOC>-<.-ROMORG> 

3875 : .BYTE O 

3876 : . END 

3877 : . IFF 

3878 : ERROR <.-ROMORG>-<LOC> ;BOUNDARY EXCEEDED AT LOC 

3879 : .ENDC 

3880 : .ENDM FILLTO 

zn : 

3883 : MACRO TO DO MOV #XXX,DEST’ OR ’CLR DEST’ IF XXX IS ZERO 

3885 ; .MACRO MOVO  XXX,DEST 

3886 : .IFEQ XXX 

3887 : CLR DEST 

3888 . . IFF 

3889 : MOV #XXX, DEST 

3890 : -ENDC 

3891 : .ENDM MOVO 

3893 

3894 : MACRO TO ADD A SMALL NUMBER TO A REGISTER 

3895 : GENERATES ONE OF THE FOLLOWING: 

3896 : CMP -(REG),-(REG) =; -4 

3897 : TST -(REG) . =p 

3898 : CMPB ~ (REG), -(REG) } -2 (REGISTER MAY BE ODD? 

3899 : DEC REG . =] 

3900 : «NOTHING? : 0 

3901 : INC REG : 1 

3902 : TST (REG)+ - 2 

3903 : CMPB (REG)+, (REG)+ } 2 (REGISTER MAY BE ODD) 

3904 : CMP (REG)+,(REG)+ ; 4 

3308 : ADD XXX, REG : ANYTHING ELSE 

3907 : USE THIS MACRO WITH CAUTION, SINCE IT REFERENCES MEMORY 

3308 : AND ALSO DOES NOT SET THE CONDITION CODES PROPERLY 

3910 : ‘ .MACRO ADDX XXX,REG, ODD 

3911 ‘ $$$=. 

3912 } -IFEQ XXX+4 

3313 : _IF B <ODD> 


E08 
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3914 ; CMP - (REG) ,-(REG) 
3915 : . ENDC 


FO8 
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OZBMDH ROM CONTENTS TABLES 
3318 ;BM873H - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(666) 17-AUG-76 16:19 PAGE 2-1 
3918 ; .ENDC 
3919 : . IFEQ XXX+2 
3920 : .IF B <ODD> 
3921 : -(REG) 

3922 : .IFF 

3923 : CMPB ss = (REG) , - (REG) 

3924 : ENDC 

3925 : .ENDC 

3926 : . IFEQ XXX+1 

3927 : DEC REG 

3928 : .ENDC 

3929 : . IFEQ XXX 

3930 : $$$=$$$+2 

3931 : .ENOC 

33 : . IFEQ XXX-1 

3933 : INC REG 

3934 : .ENDC 

3935 : . IFEQ XXX-2 

3936 : _IF B <ODD> 

3937 : TST (REG) + 

3938 : .IFF 

3939 : CMPB (REG) +, (REG) + 

3940 : .ENDC 

3941 : .ENDC 

3942 : . IFEQ XXX-4 

3943 ; .IF B <ODD> 

2944 ; CMP (REG)+, (REG)+ 

3945 : .ENDC 

3946 : .ENDC 

3947 : .IFEQ $$$-. 

3948 : #XXX, REG 

3949 ; . ENDC 

3950 : .ENDM  ADDX si 
3951 ; 

2952 : 

a2eu ; DEFINITIONS... 

<e ; 000040 ROTOR7= 40 ;SAVE RO TO R7 IN 40 TO S56 
2957 ; 000130 OTESAV= 130 ;SAVE FIRST le DTE REGISTERS DLYCNT TO TOLLODT 
3228 . ; IN LOCATIONS 130-156 
3360 ; 000014 RETRY= 12. :D0 12 RETRIES BEFORE HALTING 
3962 : 001 ‘IFNDF TESTYR 

a3 ; 173000 ROMORG= 173000 ;ROM STARTS AT 773000 

3965 ; ROMORG= 073000 :IF TEST, START AT 73000 INSTEAD 
3266 } 000 .ENDC 

3968 : ESTABLISH ROM ORIGIN 


3969 


OCTOBER 1976 
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3970 
3971 
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O01 .IF DF TESTVR 
. =ROMORG-2 


i08 


HO8 
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3972 ;BM873H - KL1O (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(6663 17-AUG-76 16:19 PAGE 2-2 
HALT 


 IFF 
3976 ; 173000 .=ROMORG 
; 000 .ENDC 


108 
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3378 ;BM873H - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(666) 17-AUG-76 16:19 PAGE 3 
3380 : .SBTTL EXTERNAL BUTTONS #1, #2, #3 

338e : BUTTON #1 -- LOAD USING SWITCH REGISTER 

3984 : 173000 BUTONI: 

3985 007000 010037 :173000 010037 MOV RO, ROTOR7+0 ;SAVE RO IN LOCATION 40 

3986 007002 oo0040 573002 000040 

3987 007004 013700 ;173004 013700 MOV SWR, RO GET SWITCH REGISTER 

3988 007006 177570 ;173006 177570 

3989 007010 032700 ;173010 032700 BIT #BITO,RO :IS LOW-ORDER BIT SET? 

3390 007012 000001 ;17301e 000001 

3991 007014 001007 ;173014 001007 BNE BUTONX ;YES-- LOOK AT CONTENTS 

$332 G0701s 000513 3173016 000513 BR REGSAV *NO-- SAVE RI-R7 IN 42-56, GO TO ADDRESS IN RO (FROM SUR 
3334 : BUTTON #3 -- LOAD BOOT FROM RX11 FLOPPY DISK 

3996 173020 BUTON3: 

3997 007020 ooso000 $1 73000 ooso00 CLR RO SAY LOAD FROM FLOPPY, UNIT O 

3338 GO7022 o00404 :173022 000404 BR BUTONX :GO TO COMMON CODE FOR 3 BUTTONS 
wong : REQUIRED POWER-FAIL VECTOR 

4o02 ; 173024 7 FILLTO 24 

4003 007024 173000 :173024 173000 .WORD ROMORG,PR7 

4004 007026 000340 +;173026 000340 

4008 : BUTTON #2 -- LOAD BOOT FROM RPO4Y DISK 

4008 ; 173030 BUTON2: 

4009 007030 912700 :173030 012700 MOV #81T7,RO :BIT 7 MEANS LOAD FROM RPO4 

4010 007032 O00200 :173032 o00200 

HOLL : BR BUTONX :FALL INTO COMMON CODE 

4013 : RO IS SAVED IN RS AS THE PARAMETER WORD PASSED TO BOOT 

4018 : AND CONTAINS ONE OF THE FOLLOWING: 

4016 : BITO=1 IF FROM SWITCH REGISTER 

4017 : BIT7=0 LOAD FROM RX11 FLOPPY DISK (OR TC11 DECTAPE) 
4018 : BIT 7 =1 LOAD FROM RPOY DIS 

4019 : BIT 15 = 1 INDEFINITE RETRY 

4021 173034 BUTONX: 

4022 007034 010005 + 73034 010005 MOV RO,RS ;SAVE PARAMETER FOR BOOT 

4023 007036 106300 ;173036 106300 ASLB = RO :LEFT-ALIGN SPEED FIELD IN LOW BYTE 
4024 007040 122700 +;173040 122700 CMPB  =s-&¥BIT4, RO -IS SPEED 0, 1, OR 2? 

4025 007042 000060 ;17304e 000060 

4026 007044 101001 ;173044 101001 BHI 10% ;YES-- UNIT IS UNIT TO USE 

1027 007046 005000 173048 005000 ae CLR RO *NO-- USE UNIT #0 

4029 007050 000300 ;173050 000300 “SWAB =SséRRO :GET UNIT # IN LOW BYTE 

4030 007052 o042700 :173052 042700 BIC #tC7,RO ‘TRIM TO 3 BITS 2, 1, O 


4031 007054 177770 3173054 177770 
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007062 
007064 
007066 
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105705 
100553 


012737 
173304 
000004 


3173056 105705 
:173060 100553 


3173062 012737 
:173064 173304 
173066 000004 


18-FEB-77 


. 
’ 
’ 
. 


15:18 PAGE 100 


BIT 7 = 


TSTB 
BMI 


MOV 


RS 
RPBOOT 


#TCBOOT,4 


JO8 


: UNIT # IS IN RO-- CALL PROPER BOOT DEPENDING ON BIT 7 


i ERS i oe WE BOOT FROM? 
:BIT 7 = 1 -- BOOT FROM RPOY DISK 


0 -- BOOT FROM RX11 IF IT EXISTS, ELSE TC11 
;SET TIMEOUT TRAP TO TRY DECTAPE 


KO8 
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me ;BM873H - KL1O (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(666) 17-AUG-76 16:19 PAGE 3-1 
4O4S 007070 005037 ;173070 005037 CLR 6 fs» 


4046 00707 006 ;173072 000006 
4047 — : ; BR RXBOOT ; TRY FLOPPY FIRST 


OCTOBER 1976 
DZBMDH.P11 


oc 
007112 
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;BM873H - KL1O (PDP-11) 


ete te eee ee re ee oe 7 


012706 
000014 
012701 
177170 
010003 


005705 
100402 
005306 


177170 
000000 


; 173074 

‘173074 O16708 
;173076 000014 
173100 12701 
3173102 177170 
173109 o10003 


LO8 
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256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(666) 17-AUG-76 16:19 PAGE 4 
.SBTTL X11 FLOPPY DISK BOOTSTRAP ROUTINES 
: RX11 REGISTER DEFINITIONS 


RXEPA= 177170 sEXTERNAL PAGE ADDR OF FLOPPY 
AxcS= 0 ;OFFSET FOR CSR 
RXERR= BIT1S ; ERROR 
RXTREQ= BIT? “TRANSFER REQUEST 
RXDONE= B TS : TRANSFER DONE 
RXUNIT= BITY ‘UNIT NUMBER 1 
RXFUNC= BITS! BITB!BIT1 FUNCTION: 
XFILL= 0 : FILL SILO 
ERB Te 2 ; EMPTY SILO 
RXWRIT= 4 ; WRITE SECTOR 
RXREAD= 6 : READ SECTOR 
RXRERR= 16 ; READ ERROR REGISTER 
RXGO= BITO 0 BIT 
RXDB= 2 ?MULTI-PURPOSE DATA BUFFER REGISTER 


NOTE THAT THE BOOTSTRAP IS WRITTEN IN LOGICAL BLOCK 0 
WHICH IS TRACK 1. SEC 1, 3, 5, 7. ONLY SECTOR 1 
IS READ BY THE ROM. 


REGISTER USAGE : 
RO - READ EO TION arte UNIT SELECT SET 


Rl -- ADDRESS OF 

A o ore OF RXD: 

RY -- vd, ADDRESS (TO READ OR WRITE) 

mm <- ARAMETER WORD SAVED FROM INITIALIZATION 
SP -- RETRY COUNTER 


; HERE TO BOOT FROM RX11 FLOPPY DISK-- UNIT # IN RO 


ae: 
MOV #RETRY, SP ;SET RETRY COUNT 
MOV BRXEPA+RXCS,R1 ;ADDRESS CONTROL STATUS REGISTER FOR RX11 
MOV RO,R3 ;COPY UNIT 
; BR RXRTRY :FALL THROUGH RETRY CHECK 
: HERE ON ERROR TO RETRY 
RXRTRY: 
TST RS j INDEFINITE | RETRY? 
BNI RXRSET :YES-- TRY FAITHFULLY 
DEC Sp :NO-= DECREMENT RETRY COUNT 


MOS 
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wits 007114 002445 ;173114 OO244S BLT RXEHLT sGIVE UP IF RUN OUT 
4104 : HERE TO START TRANSFER 


4105 ; 
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4106 :BM873H - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(666) 17-AUG-76 16:19 PAGE 4-1 
4108 3173116 RXRSET: 
4103 007116 000005 i 173116 ooo00s ae RESET CLEAR THE WORLD 
4111 007120 032711 :173120 032711 “BIT #RXDONE,(R1) WAIT 
‘lle rige ran sivaieg 3744 E, (RI WAIT UNTIL READY FOR FUNCTION 
1775 3173124 001775 BEQ 20$ . sNOT_YET-- WAIT 
4114 ; BR RXPERF : JUST DO FIRST READ 
411 HERE TO PERFORM READ, UNIT # IN RO 
4118 173126 RXPERF : 
4119 007126 010300 3173126 010300 MOV R3, RO -GET UNIT # 
Wisi borise O1e700 473132 012700 eo Sbaert.no | RAC zERSee Pca Unt 
agg OT ROD ates OD, aay : 
4124 007136 052700 :173136 0527 : + , 
sigs 007136 pect os? og BIS #RXREAD#RXGO,RO ;SET READ PUnCTION 
4127 007142 O10102 ;173142 O10102 ’ MOV R1,Re2 sCOPY ADDRESS OF RXCS 
H1e8 007144 5173144 010022 oa MOV RO, (Re)+ :START READ FUNCTION, R2 NOW POINTS TO RXDB 
4130 007146 105711 3173146 105711 ‘ -TSTB Ss (RL) ;READY? 
Wias OD7Iee Oteri it7atee Otorie fOY A eCR2D i OET SECTOR 
ify TISH On Fa ORDO | montis 
4135 007156 105711 ;173156 105711 *—-TSTB Ss ERI) “READY FOR TRACK? 
sie Borie inGere ii73i6g Ioere Bah HM RTT 
Si rik taal | ea ih 
4140 007166 032711 5173166 032711 os wae #RXERR!RXDONE, (RL) ;DONE OR ERROR? 
4142 007172 ts :17317e2 Nitec BEQ 30 ;NO-- WAIT 
41N3 007174 100744 5173174 100744 BMI RXRTRY YES-- ERROR IN FUNCTION 
dis READ COMPLETED-- EMPTY SILO TO MEMORY 
4147 : 173176 RXEMSL: 
4148 9071 912711 517317 12711 MOV WRXEMPT+RXGO,(R1) ;START EMPTY 
ui p 007202 005004 i 173208 005004 ‘nat CLR RY ;ALWAYS START TRANSFER AT LOCATION ZERO 
W156 o7e04 1 117304 71 " BITB = WRXTREG!RXDONE,(R1) ;READY FOR WOR! , OR TRANSFER DONE? 
4154 00721 * 17321 Q 0s -NOT READY-- WAIT : IME MORE 
a 007814 tte i? te 10h PP ce (R4)+ i DONE == Teeter pitt PROM SILO TO MEMOR 
ie 007216 bhtso2 :173216 BR 10s ’ :WAIT FOR NE BYTE. 7 
4is : REQUIRED POWER-FAIL VECTOR 


OCTOBER 1976 
DZBMDH.P11 


007220 
007222 


007224 
007226 
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: 173220 : FILLTO 224 
oo0000 :173220 000 -BYTE OG 
°1732e1 000 “BYTE 0 
000090 ;173222e 000 "BYTE 0 
173223 000 "BYTE 0 
173000 ;173224 173000 “WORD  ROMORG,PR7 


000340 ;173226 000340 


; HERE ON ERROR AFTER RETRYING -- DISPLAY ERROR REGISTER AND HALT 


cO9 
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4170 ;BM873H - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACYI1 27(666) 17-AUG-76 16:19 PAGE 4-2 
4172 . 

4173 ; 173230 RXEHLT: 

4174 007230 012711 ;173230 012711 MOV #RXRERR+RXGO, (R1) ;DO0 A READ ERROR REGISTER FUNCTION 

4178 007232 000017 i 173836 000017 an 

4177 007234 032711 3173234 032711 ss of #RXDONE, (R1) WAIT UNTIL ERROR ASSEMBLED 

4178 007236 OO0040 ;173236 OO0040 

4179 007240 001775 ;173240 001775 BEQ 10$ ci 

4180 OO7242 011200 ;173242 011200 MOV (R2) RO ‘GET ERROR REGISTER 


) 
4181 007244 000541 ;173244 000541 BR HALTED sHALT AND DISPLAY ERRORS 


DOS 
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4182 ;BM873H - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(666) 17-AUG-76 16:19 PAGE 5 
41g4 : .SBTTL REGISTER SAVE ROUTINE 
4186 : REGSAV IS CALLED TO SAVE THE GENERAL REGISTERS RO-R7 
4187 : IN MEMORY AT 40-S6 (LOCATION ROTOR7). 
4189 : CALLING SEQUENCE: 
4190 : MOV RO. ROTOR7+0 
4191 : MOV #RET. RO 
4192 : BR Hat 
4133 : RET: <RETURN Ree 
4136 ALL REGISTERS RESTORED 
4197 : : 
4198 : 173246 becsav: 
4133 007246 010037 i 173246 010037 MOV RO,ROTOR7+16 §;SAVE RO AS PC IN 56 
4201 bo7e5¢ 012700 173682 012700 MOV #ROTOR7+16,RO  ;RO NOW POINTS TO S6 
4203 007256 O10640 3173256 010640 MOV SP, -(RO) SAVE SP IN SY 
4204 007260 O10S40 ;173260 010540 MOV RS; -(RO) SAVE RS IN Se 
4205 010440 ; 0104 MOV 4’ -(RO) ‘SAVE RY IN SO 
206 007264 010340 ;173264 010340 MOV R3,-(RO) Save R3 IN 46 
4207 007266 O10e40 3173266 010240 NOV R2,-(RO) AVE Re IN 44 
4208 007270 O10140 ;173270 010140 MOV R1.-(RO) “SAVE RI IN 42 
4209 007872 O14000 173872 O14000 MOV -(RO) RO ‘RESTORE RO FROM 40 
4210 007274 000177 :173274 000177 IMP JROTOR? +16 ‘GO TO SAVED PC 


4211 007276 OO4SS& ;173276 OO4SS6 


EOS 
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W212 ,BM873H - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACYI1 27(666) 17-AUG-76 16:19 PAGE 6 
W214 : _SBTTL C11 DECTAPE BOOTSTRAP ROUTINES 
Hele : TC11 REGISTER DEFINITIONS 
4218 : 177340 TCEPA= 177340 EXTERNAL PAGE ADDRESS OF TC-11 
4220 : oo0000 fcsT= oO ;STATUS REGISTER 
4221] : 100000 TCENDZ= BITIS *END-ZONE DETECTED 
4222 : ooo002 TCCM= 2 “COMMAND REGISTER 
42203 : 100000 TCERR= BITS * ERROR 
ypoy : 004000 TCREV= BIT11 REVERSE DIRECTION (TOWARD FORWARD END-ZONE) 
ges : 003400 TCUNIT= BIT10!B1T9!B1TS8 UNIT SELECT 
4227 : ooo200 TCRDY= BIT7 ; READY 
4228 : 000016 TCFUNC= B1T3181T2¢BIT1 ; FUNCTION: 
4229 : 000000 TCSATM= OXBIT1 ; STOP ALL TAPE MOTION 
4230 : 900002 TeRNUM i¥BIT1 + READ BLOCK NUMBER 
4231 : 000004 TCREAD= 2*BIT1 ; READ DATA 
4232 : 000001 TCGO=  BITO staat FUNCTION 
4233 : go0004 TCWC= 4 WORD COUNT REGISTER 
4234 . : 000006 TCBA= 6 “BUS ADDRESS REGISTER 
4236 ‘ : REGISTER USAGE: 
4237 : RO -- UNIT 
4238 : RI -- ADDRESS OF TCCM 
4233 ; RS -- PARAMETER WORD SAVED FROM INITIALIZATION 
44] HERE TO START ROM TO BOOT FROM DECTAPE # 0, AS IF 
Hee : DECTAPE BUTTON WERE PUSHED, IN CASE FLOPPY EXISTS. 
4you4 ; 173300 tcBoTO: 
4245 007300 coso00 :173300 005000 CLR RO HERE TO START WITH A FLOPPY, FROM UNIT O 
ue4ug 007302 O0S500S ;173302 005005 CLR RS re 
a a : BR TCBOOT GO BOOT 
4e48 : HERE TO BOOT FROM BLOCK 0 OF DECTAPE, UNIT # IN RO 
4251 173304 tcBooT: 
4252 007304 012706 + 13304 012706 MOV #RETRY, SP INIT RETRY COUNTER 
4253 007306 O00014 :173306 000014 
4254 007310 Ole701 173310 012701 MOV #TCEPA+TCCM,R1 ;POINT TO COMMAND REGISTER 
Mees 007312 «177342 3173312 177342 
Hose ; BR TCRTRY :TRY IT 
4ecg : HERE ON ERROR TO RETRY 
4259 § b EE OnE 
4260 173314 tORTRY: 
4261 007314 005705 :173314 005705 TST RS ; INDEFINITE RETRY? 
Web2 007316 100402 :173316 100402 BMI 10$ "YES-- TRY HARDER 
4263 007320 005306 :;173320 005306 DEC sp ;NO-- DECREMENT COUNT 
4264 007322 O02427 :1733ee 002427 BLT TCEHLT "TOO MANY-- GIVE UP 


4265 ;173324 108: 


FOS 
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4266 007324 000005 ;173324 000005 RESET ; CLEAR 
4267 007326 010003 173326 010003 MOV RO,R3 GET NTT "NUMBER 
4268 007330 000303 ;173330 000303 SWAB R3 T 


4269 007332 010304 ;173332 010304 MOV R3,R4 COPY FOR READ FUNCTION 
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007336 
007340 


007342 
007344 
007346 
007350 
007352 
007354 


007402 
007404 
00740& 
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;BM873H - KL1O (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) 


052703 
004003 
010311 


005711 


100366 
012761 


bs2704 
ooo00s 
010411 
105711 


000460 


016100 
177776 
SO00460 


3173334 052703 
317 4003 
3173340 010311 


:17336e 100360 


3173354 012761 
:173356 177400 
;173360 000002 


3173362 052704 
:173364 000005 
5173366 010411 


;1733 
173370 105711 


173400 000460 


173402 
153408 Pis1) 
173404 177776 
: 173406 bon4e6 


20s: 


308: 


BIS 


GQO9 
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MACY11 27(666) 17-AUG-76 


8TCREV+TCRNUM+TCGO,R3 ;START TAPE TOWARD FOWARD END-ZONE 
R3, (R1) $s 

(R1) ; ERROR” 

20$ ;NO--_WAIT FOR END- -ZONE ERROR 
TCST-TCCM(R1) | ;END-ZONE UP YET? 

TCRTRY ;NO-- MUST BE OTHER ERROR 


#-256.,TCWC-TCCM(R1) ;SET WORD COUNT 


sNOTE THAT “RESET” CLEARS BUS ADDRESS REGISTER. 
#TCREAD+TCGO, R4 : START READ, FORWARD 


R4, (R1) ; 

(R1) ; TRANSFER DONE? 

te NO-- WAIT SOME MORE 
YES-- ERROR? 

TERTRY 3 YES-~ RETRY 

CLRPC ;NO-- DONE-- GOTO LOCATION 0 


: HERE ON TC11 ERROR 


+CEHLT: 


MOV 
BR 


TCST-TCCM(R1),RO ;GET STATUS REGISTER 
HALTED ;AND STOP 


16:19 PAGE 6-1 


(BLOCK 0} 
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;BM873H - KL1O (PDP-11) 


ie te te te eee eee te ee ee ee re ee te re re re 7) 


012706 


004000 


176700 
000000 


000034 


; 173410 
5173410 012706 


173422 004000 


256 WORD BOOTSTRAP ROM VERSION 3(23) 


HOS 
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.SBTTL RPOY DISK BOOTSTRAP ROUTINES 
: RPOY REGISTER DEFINITIONS 


bpepa= 


RP UNCTIO 
RPFUNC= Bi tsrerTy:erratetTereLt ; FUNCT 
PRST= 20 AD-IN PRESE 


MACY11 27(666) 


;EXTERNAL PAGE ADDRESS OF RPOY REGISTERS 
;OFFSET FOR CSR #1 
ERRROR 


: TRANFER 


;MASSBUS CONTROL Aoglf — 
DRIVE AVAILABLE (TO - 
N COMPLETE 


WRITE DATA 
READ DATA 


WORD COUNT REGISTER 


ION: 
T 


;TRACK (HIGH BYTE) SECTOR (LOW BYTE) 
‘CONTROL AND STATUS REGISTER #e 


sUNIT # 
: DRIVE eh se ee 


; ATTENTION 


: ERROR REGISTER #1 
;FOR ERROR 
: OFFSET mali ER 


:22 SECTOR 


(16 BIT) FORMAT 


: INHIBIT ECC CORRECTION 


DESIRED CYLINDER 


RPECCI (ECC INH 


FOR RP 
PARAMETER WORD SAVED FROM INIT 


I8 
IA 


I 
L 


T 
I 


;RETRY RETRY TIMES 
;ADDRESS RPCS1 IN Rl 
;SET ECC INHIBIT, 20 SECTOR MODE 


176700 
RPCS1= 
TRE= BIT14Y 
RPMCPE= BIT13 
PDVA= BITI1 
RDY= BIT? 
RPLIRT T= 60 
RPREAD= 70 
RPGO= BITO 
RPWC= 2 
RPDA= 6 
RPCS2= 10 
RPUNIT= BIT2!BIT1!BITO 
RPDS= 12 
RPATA= BITIS 
RPERR= BIT14 
RPERI= 14 
RPFER= BITY 
RPOF= 32 
RPFM22= BIT12 
RPECCI= BIT11 
RPDC= 34 
: REGISTER USAGE: 
: RO -- UNIT # 
} Rl -- ADDRESS OF RPCS1 
’ Re = DAT OF: 
: SP -- RETRY COUNTER 
: HERE TO BOOT FROM RPO4-- UNIT # IN RO 
; START RPOY GOING ON BOOT 
bpgoor: 
#RETRY, SP 
MOV #RPEPA+RPCS1 RI 
MOV #RPECCI ,R2 
; BR RPRTRY 


) 
ZATION 


RPFM22 (22 SECTOR FORMAT) 


;FALL THROUGH RETRY CODE 


17-AUG-7& 16:19 PAGE 7 
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4 
4359 007424 
4360 007426 


109 


MACY11 27(663) 18-FEB-77 15:18 PAGE lle 
ROM CONTENTS TABLES 


; HERE ON ERROR TO RETRY 


173424 RPRTRY: 
005705 :1734e4 005705 TST RS - INFINITE RETRY? 
100402 :173426 100402 BMI 10$ -YES=-- TRY AGAIN 


JO9 
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4361 ;BM873H - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACYI1 27(666) 17-AUG-76 16:19 PAGE 7-1 
4363 007430 005306 ;173430 005306 DEC sp ;RETRY COUNT EXHAUSTED? 

4364 007432 002444 ;173432 002444 BLT RPEHLT :YES-- GIVE UP 

4365 + Fau3q 10S: 

4366 007434 000005 ;173434 000005 RESET ;ZAP!! 

4367 007436 110061 ;173436 110061 MOVE RO,RPCS2(R1)  ;SELECT PROPER UNIT # 

4368 007440 000010 ;173440 000010 

4369 OO7442 032711 3173442 032711 BIT #RPDVA, (R1) 51S DRIVE AVAILABLE TO US? 

4370 OO7444 OO4000 ;173444 OD4000 

4371 O07446 001766 ;173446 001766 BEQ RPRT TRY AGAIN 

4372 007450 012711 3173450 012711 MOV SREPRST+RPGO, Riss on "READ-IN PRESET’ FUNCTION 

4373 007452 000021 ;173452 000021 

4374 007454 005061 ;173454 O0S061 CLR RPDC(R1) ;SET CYLINDER 0 

4375 007456 000034 ;173456 000034 

4376 007460 005061 ;173460 00S0b1 CLR RPDA(R1) ; TRACK 0, SECTOR O 

4377 O0746e 000006 ;173462 000006 

4378 007464 050261 ;173464 050261 BIS R2, RPOF (R1) ;SET INHIBIT ECC, 22-SECTOR FORMAT (IF FORMAT ERROR) 
4379 007466 173466 000032 

4380 007470 012761 :173470 012761 MOV #-256.,RPWC(R1) ;SET UP WORD COUNT TO PROPER VALUE 
4381 007472 177400 :173472 177400 

4382 007474 O00002 ;173474 ODD00e 

4383 ; :NOTE THAT IT IS NOT_NECCESARY TO SET UP BUS 
4384 : ADDRESS, SINCE IT IS O AFTER READ-IN PRESET 
4385 007476 012711 ;173476 012711 MOV WRPREAD+RPGO, (R1} ;START READ FUNCTION 

4386 007500 000071 :173470 000071 

4397 ; 173502 20S: 

4388 007502 105711 :173502 105711 TSTB = (RIL) zREAOY! 

4389 007504 100376 :173S04 100376 BPL 20$ WAIT UNTIL IT IS 

4390 007506 032761 ;173506 032761 BIT #RPFER,RPERI(R1)’ ; NORMA ERROR? 

4391 007510 000020 ;173510 o00020 

4392 007512 000014 ;173512 000014 

4393 007514 001403 :173514 001403 BEG 30$ ;NO-- TRY AGAIN 

4394 007516 052702 ;173516 052702 BIS #RPFM22, RE :YES-- TRY FOR 22 SECTOR FLAVOR 

4395 007520 010000 ;173520 010000 

4336 007522 000740 ;173522 000740 BR RPRTRY ; TRY AGAIN 

4398 5173524 30S: 

4399 007524 032711 ;173524 032711 BIT #RPTRE!RPMCPE,(R1) ; TRANSFER OR MBC PARITY ERROR? 
4400 007526 060000 ;173526 060000 

4401 007530 001335 ;173530 001335 BNE RPRTRY - ERROR-- TRY AGAIN 

4402 007532 032761 ;173532 032761 BIT #RPATA!RPERR, RPosiRt) ; ATTN OR OTHER ERROR? 

4403 007534 140000 5173534 140000 

4404 007536 O000i2 ;173536 OooDle 

4405 607540 001331 ;173540 001331 BNE RPRTRY :YES-- ERROR-- TRY AGAIN 

446 ; BR CLRPC :NO ERRORS-- GO TO LOCATION C 

4408 ; HERE TO GO TO 0 

4409 : 

4410 3173542 CLRPC: 

Hid 007542 o0s007 ;173542 o0s007 CLR PC ; IMP 0 

4413 ! HERE ON ERROR FROM RPOY AFTER RETRYING-- DISPLAY DRIVE STATUS IN RO 
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3173544 RPEHLT: 
016100 ;173544 016100 MOV RPDS(R1),RO ;DISPLAY DRIVE STATUS 
000012 ;173546 000012 
; BR HALTED sR.1.P. 


; 173550 HALTED: 
po0000 ;173550 ooo000 HALT :DIE 
000776 :1735S2 000776 BR HALTED :STAY DEAD 
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007564 


007612 
007614 


007616 
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;BM873H - KL1O (PDP-11) 


© 
9 


010037 
000040 


012704 
174340 


012706 
000004 


062704 


000040 
coooo4 


72554 
173564 010037 


; S65 
3173564 000630 


7356 
1173566 005005 


173604 005015 


; 173606 
3173606 012704 
;173610 174340 


LOS 
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256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(666) 17-AUG-76 16:19 PAGE 8 
.SBTTL INTERNAL BUTTON #4 -- DUMP AND BOOTSTRAP THROUGH DTE20 
: DTE20 DEFINITIONS 


; NOTE THAT ALL DTE2O lg tl DEFINITIONS AND BIT DEFINITIONS 
ARE IN SDEF IN SYSMAC.SML 


bresiz= 40 ;EACH DTE OCCUPIES 20 ne IN EXTERNAL PAGE 
DTEMAX= 4 ;MAX OF 4 DTE’S ON A POP-1 


BUTTON #4 -- INITIATED BY '-10 RELOAD -11’ BIT 


BuTONY: 
MOV RO, ROTOR7+0 ;SAVE RO IN 4O 
MOV #10$,RO SET RETURN ADDRESS IN RO 
BR REGSAV SAVE R1-R7 
REGISTERS SAVED-- LOOK FOR THE DTE20 WHICH PUSHED THE BUTTON 
THE DTE WHICH PUSHED THE BUTTON SHOULD HAVE THE DOORBELL 
; RINGING AND HAVE THE VALUE 1365 (OCTAL) IN IT’S 
; TO -10 BYTE COUNT TO1OBC. 
NXM (TIME-OUT) TRAP IS USED TO SKIP NON-EXISTANT DTE20’S. 
ios 
CLR RS sADDRESS LOCATION ZERO 
MOV (RS)+,RO ‘SAVE O IN RO 
MOV (R5)+'R1 : SAVE : IN Ri 
MOV (RS), Re ‘SAVE 4 IN Re 
MOV #21$' (RS)+ :SET NXM TRAP ADDRESS IN 4 
MOV (RS) ,R3 ;SAVE 6 IN R3 
CLR (R5)’ :SET PS FOR TRAP 
* LOOP THROUGH ALL DTE’S 
20S: 


MOV #OLYCNT-DTESIZ,R4 ;POINT TO DTE # -1’S DELAY COUNT REGISTER 
; (WILL BUMP TO # 0) 
: HERE ON NXM TRAP-- RESET SP AND TRY NEXT DTE 


41g: 
MOV #4, SP ;SET SP TO 4, STACK IS LOCATIONS 2 AND 0 


2e$: 
ADD #OTESIZ,RY ;BUMP TO NEXT DTE’S EXTERNAL PAGE ADDRESS 


OCTOBER 


1976 
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007620 
007622 


007634 


MOQ9 
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000040 ;173620 000040 


105704 :173622 105704 TSTB = RY ;1S THIS THE END OF THE DTE’S? 
: j NOTE THAT THE LAST DTE IS AT 774SH0 
: AND THAT Nou Ras 774600 IF END 
100770 ;173624 100770 BMI 20S t YES-- START ALL OVER, UNTIL A DTE 

: SAYS HE P RUSHED THE BUTTON 

032764 ;173626 032764 BIT #701108, STAT-DLYENT(RG) : “DOORBELL RINGING? 


004000 ;173630 004000 
000034 ;173632 000034 
001770 ;173634 001770 BEQ ees ;NO-- TRY NEXT DTE 


NO9 
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a 

W482 :BM873H - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(666) 17-AUG-76 16:19 PAGE 8-1 

4489 007636 026417 ;173636 026417 CMP TOIOBC-DLYCNT(R4), (PC) ;DOES THIS ONE HAVE 1365 

4490 007640 000014 ;173640 000014 

4491 ; N IT’S TO -10 BYTE COUNT? 

4432 oo7e42 601365 ;173642 001365 BNE 223 :NO-- thy’ ANOTHER DTE 

4434 : WE HAVE FOUND THE DTE WHICH PUSHED THE BUTTON p 

4436 ? ADDRESS OF DLYCNT REGISTER IS IN RY 

4498 007644 010315 ;173644 010315 ° MOV R3, (RS) RESTORE LOCATION 6 

4499 007646 010245 3173646 010245 MOV R2,-(RS) 7 4 

4500 007 010145 3173650 010145 MOV R1,-(R5) : 2 

4501 007 010045 ;173652 010045 MOV RO, -(RS) : 0 

4503 : ; SAVE FIRST 12 DTE REGISTERS DLYCNT TO TOLIDT 

#504 : IN LOCATIONS 130-156 

#506 g07654 012700 ; 173654 012700 ; MOV #OTESAV, RO :POINT TO SAVE AREA 

4508 : 173660 298: 

4509 007660 012420 ;173660 012420 MOV (R4)+, (RO)+ -SAVE A REGISTER 

4510 007662 022700 :173662 022700 CMP #TOLIDT-DLYCNT+DTESAV,RO ;FINISHED? 


4511 007664 O00156 ;173664 OO01S6 
4512 007666 103374 :173666 103374 BHIS 295 ;NO-- SAVE SOME MORE 


4513 ; 
4514 : R4= TOLIDT+2 
4516 : SET Rl= STATUS REGISTER 
4517 : R¥= DIAG2 REGISTER 
4519 : DO ’DIAGNOSTIC RESET’ TO CLEAR DOORBELL AND BYTE COUNT 
4520 : LOADED FLAG 
tJ 


4Se2 ; 173670 <a ADDX DIAG2-TO11DT-2,R4 ;R4 POINTS TO DIAG2 REGISTER 
45e3 007670 005724 ;173670 005724 (R4)+ 
4524 3173672 010401 MOV R4Y,R1 ;.90 DOES R 


4525 007674 012700 5173674 012700 MOV #DRESET, RO *SETUP RO FOR *DIAGNOSTIC RESET’ 
4526 007676 000100 ;173676 000100 
4527 007700 010021 ;173700 010021 MOV RO, (R1)+ ‘sR1 POINTS TO STATUS REGISTER 
4509 : REGISTERS: 
4530 : RO -- DRESET (DIAGNOSTIC RESET FUNCTION) 
4531 : Rl -- STAT (STATUS REGISTER) 
1338 : RY -- DIAG2 (DIAGNOSTIC REGISTER #2, WHERE DRESET IS) 

: THE -10 WILL NOW START READING -11 MEMORY, AS SOON AS WE SET 
4336 : THE 15 st ADDRESS. WHEN FINISHED, THE -10 WILL RING OUR DOORBELL. 
4537 005061 ;173702 o0S061 ° CLR DLYCNT-STAT(R1) ;SET DTE20 FOR MAXIMUM DELAY (ZERO) 

77744317 77744 , 

Wea 1 31737 1 CLR TOLOAD-STAT(R1) ;START OUMPING -11 MEMORY TO -19 
4540 007710 177764 ;173710 177764 


B10 


OCTOBER 1976 MACY11 27(663) 18-FEB-77 15:18 PAGE 118 


OZBMDH.P11 ROM CONTENTS TABLES 
4541 ; ; STARTING AT LOCATION 0 
4542 17371e 308: 
4543 007712 032711 13715 032711 BIT #TO11DB, (R1) ;I1S DOORBELL RINGING (TRANSFER COMPLETE)? 
4544 007714 004000 ;173714 004000 
4545 007716 001775 ;173716 001775 BEQ 308 ;NO-- WAIT FOR DOORBELL 
ne 007720 010014 ;173720 010014 MOV RO, (R4) :YES-- CLEAR DOORBELL AND ERROR FLAGS 
4548 ; NOW THE -10 WILL GIVE US A 256 WORD BOOTSTRAP TO BE READ 


4549 ; INTO -11 MEMORY STARTING AT LOCATION 0. WHEN FINISHED, 


C10 
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4550 :BM873H - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACYI1 27(666) 17-AUG-76 16:19 PAGE 8-2 
4552 ; THE -10 WILL RING OUR DOORBELL, AND WE WILL START EXECUTION 

4553 : OF THE LOADED CODE AT LOCATION’ O. 

4555 007722 005061 ;173722 O0S0b1 CLR - TOLIAD-STAT(R1) ;START INPUT TO LOCATION O 

4556 007724 177766 3173724 177766 

4557 007725 Ole7b1 }173726 012761 MOV —«s #IFLOP!<<-256.»87777), TOLIBC-STAT(R1) ;256 WORDS, INTERRUPT 
4558 007730 107400 ;173730 107400 

4559 007732 177762 :173732 177762 

4560 : ; -10 WHEN DONE 

4561 ;173734 40S: 

4562 007734 032711 3173734 032711 BIT § #TOLIDN,(R1)  ; TRANSFER COMPLETE? 

4563 007736 000200 ;173736 000200 

4564 007740 001775 3173740 001775 BEQ 6-40 sNO-- WAIT UNTIL DONE 

#68 007742 00007 :173742 005007 oe 36010 LOADED CODE, STARTING AT 
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4567 ;BM873H - KLIO (PDP-11) 256 WORD BOOTSTRAP ROM VERSION 3(23) MACY11 27(666) 17-AUG-76 16:19 PAGE 9 
4569 : .SBTTL FILL TO END OF ROM 
4570 ‘ 

4571 : 

4572 ; 173744 ‘ FILLTO 1000 
4573 007744 O00000 ;173744 000 .BYTE 0 
4574 °173745 000 “BYTE O 
4575 007746 OO0000 ;173746 000 -BYTE O 
4576 °173747 000 “BYTE 0 
4577 007750 O00000 ;173750 000 -BYTE 0 
4578 °173751 O00 “BYTE 0 
4579 007752 oO00000 ;173752 000 “BYTE 0 
4580 -173753 O00 -BYTE 0 
4581 007754 o00000 ;173754 000 -BYTE 0 
4582 :173755 000 -BYTE 0 
4583 007756 o00000 ;173756 000 -BYTE 0 
4584 173757 © 000 -BYTE 0 
4585 007760 O00000 ;173760 000 “BYTE 0 
4586 -173761 000 “BYTE 0 
4587 007762 OO00000 ;173762 O00 -BYTE 0 
4588 -173763 000 -BYTE 0 
4589 007764 O00000 ;173764 000 -BYTE 0 
4590 :173765 O00 “BYTE O 
4591 007766 OO00000 ;173766 000 “BYTE 0 
4592 -173767 O00 “BYTE 0 
4593 007770 o00000 ;173770 000 -BYTE 0 
4594 -173771 O00 “BYTE 0 
459S 007772 o00090 ;173772 000 “BYTE 0 
4596 -173773 ©0000 -BYTE 0 
4597 007774 900000 ;173774 O00 “BYTE 0 
4598 :173775 000 “BYTE O 
4599 007776 END. YH: 

4600 007776 OO0000 ;173776 o00 .BYTE 0 
4601 :173777 += 000 “BYTE 0 
460e : 

4603 : 

4604 . 

4605 : 174000 Passe: 


4606 ; 00000: - END 
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4607 00 000177 MAP.Y.: .BLKW 127 
4608 010376 000001 END.Y.: .BLKW 1 
46039 010400 000177 MAP.YX: .BLKW 127 
4610 010776 000001 END.YX: .BLKW 1 
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4611 5 SERIE IESE AE SEE SEE EE EE SESE SESE SEE HEHE HEHEHE AE EEE HE EEE EEE ELAR EE 
46le INITIALIZATION AND START UP OF PROGRAM. 
2iG PITT Tritt trite iret iti titre LL 
4615 011000 RESTRT: 
4616 011000 012706 901100 MOV #SCMTAG, R6 ;FIRST LOCATION TO BE CLEARED 
4617 011004 005026 CLR (R6)+ *CLEAR MEMORY LOCATION 
4618 011006 022706 001136 CMP #STKS,R6 ; DONE? 
4619 011012 001374 BNE | LOOP BACK IF NO 
4620 011014 Ol2706 001100 MOV #STACK, SP SETUP THE STACK POINTER 
4621 011020 012737 017372 000020 MOV wSSCOFE asIOTVEC ;10T VECTOR FOR SCOPE ROUTINE 
4622 011026 012737 000340 d000ee MOV aatOTVECte ;LEVEL 7 
4623 011034 012737 017466 000030 MOV taEntOr aSENTVEC rE VECTOR FOR ERROR ROUTINE 
4624 011042 012737 000340 000032 MOV #340, J#EMTVEC+ VEL 
4625 011050 012737 020016 000034 MOV tsa Tt t TRAP VECTOR FOR TRAP CALLS 
4626 011056 012737 000340 000036 MOV 0, a4TR “LEVEL 
4627 011064 012767 011064 170014 MOV +3tPa - INIT iy ge THE LOOP ADDRESS FOR SCOPE 
4628 011072 005067 O01e4%6 CLR Ih it ;INITIA ALIZE TO ASK WHICH TYPE 
4629 011076 005067 001232 CLR BLE. ioe ITIA wh TO ASK WHICH TYPE 
4630 011102 2706 001100 START: MOV HSTACK, SP T THE lin 5 a 
4631 011106 005067 170104 CLR LSTERR ;CLEA R ERROR EPORT 
4632 OQOlllle 005037 000000 CLR 5 #0 ;SET FOR UNEXPECTED TRAP TO ADD O 
4633 011116 Ol2767 011102 OOS4O4 MOV #START,PRG.NO ;GET READY FOR PWR FAIL BEFORE FIRST TEST. 
4634 011124 012737 000006 000004 MOV #6, 84 SET TIME OUT TRAP OR 
4635 OQl113e 005037 O00006 CLR ae ;SET TIME OUT STATUS 
4636 011136 005067 004710 CLR FLAGY -CLEAR TEST 4 INITIAL FLAG 
4637 011142 005737 O0004e TST ase ;AM I RUNNING UNDER ACT-11?? 
4638 011146 001002 BNE .+6 ;BR IF _*WE ARE# — ACT-11!! 
4639 011150 000167 O0052e JMP — ;JUMP_IF NOT ACT- 
4640 011154 013746 000004 MOV :SAV TRAP POINTER 
4641 011160 012737 012350 O00004 MOV archon, ae *PUT IN A NEW ONE 
4642 011166 005737 173000 TST 173000 ; TRY READ THE ROT 
4643 011172 O00240 NOP ;WAIT FOR POSSIBLE 
4644 011174 012637 000004 MOV (SP)+, 84 IF NO TRAP RESTORE "POINTER 
4645 011200 026737 170174 173000 CMP map. YA'98173000 ;DOES 1ST pe COMPARE ? 
4646 011206 001034 BNE 64S ;CHECK NEXT MAP 
4647 O112e10 013746 000004 MOV ae4,-(SP) ; SAVE LOC 4 
4648 O11214 012737 O112¢36 O00004 MOV #65$, 084 ;SET FOR TIMEOUT 
4649 Olleee 005737 173400 TST 3#173400 jREAD ‘30 173400 
4650 Ollee& 000240 NOP :IF ie NOT YA 
4651 011230 012637 O00004 MOV (SP)+,a84 t RESTORE Loc 
4652 011234 O004e) BR 4$ 
4653 011236 Oeebeb 65$: CMP (SP)+, (SP)+ ;ADJUST STACK 
4654 011240 012637 000004 MOV (SP)+, 84 : E TORE 1 Of 4 
4655 011244 Ole767 001400 001062 MOV #MAP.YA, TABLE  ;1ST MAP ADDR 
4656 OlleS2 012767 001776 001056 MOV sErO. YS LO ;LAST MAP ADDR 
4657 011260 012767 173376 001060 MOV #173376,LASTA ;LAST ROM ADDR 
4658 O1le66 012767 000101 005356 MOV #000101,VERSON ;SET ROM ig 
4659 011274 000167 OO01leb6 JMP PRG1 ;START TEST 1 
4660 011300 64S: 
4661 011300 026737 170474 173000 CMP MAP. YB, a#173000 ;DOES 1ST yor COMPARE? 
4662 011306 OO01016 BNE 69$ jee ol A al 
4663 011310 O1e767 002000 001016 MOV #MAP. YB, TABLE ;1ST 
4664 011316 012767 002776 O010le MOV #END. YB, ALLEND sLAST "AAP REDD 
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4665 011324 012767 173776 001014 MOV #173776,LASTA ;LAST ROM ADDR. 
4666 011332 012767 O00102 o0S31e MOV #900102, VERSON ; SET ROM TYPE 
4667 011340 000167 OOl222 JMP PRG1 ‘START TEST 1 
4668 011344 69: 
4669 011344 026737 171430 173000 CMP MAP. YC, 3#173000 ; -DOES 1ST WORD. COMPARE? 
4670 011352 001036 BNE 74S ;CH HECK NEXT M 
4671 011354 013746 OO0004 MOV any (SP) 
4672 011360 012737 O11404 oo0004 MOV 76$,9 :SET FOR TIMEOUT 
4673 O11366 026737 172006 173400 CMP ane yes400, 3#173400 -15 IT YC? 
4674 011374 001004 BNE : NOT YC 
4675 011376 012637 000004 MOV (SP)+,a84 “RESTORE LOC 4 
4676 011402 OOO404 BR 78S -YES IT IS A YC 
4677 O11404 O22626 76$: CMP (SP)+, (SP)+ : ADJUST STACK. 
4678 011406 012637 OO0004 77§: MOV (SP)+; 084 ;RESTORE LOC 4 
4679 011412 OO0416 BR 745 ‘CHECK NEXT MAP 
4680 011414 78: 
4681 011414 012767 003000 000712 MOV #MAP.YC, TABLE ;1ST MAP ADDR 
4682 011422 012767 003776 000706 MOV #END.YC,ALLEND ;LAST MAP ADDR 
4683 011430 012767 173776 000710 MOV #173776,LASTA  ;LAST ROM ADDR 
4684 011436 012767 000103 o00S5206 MOV #000103;VERSON ;SET ROM TYPE 
468S 011444 000167 001116 JMP PRG1 START TEST 1 
4686 011450 74%: 
4687 011450 026737 172324 173000 CMP MAP.YD, #173000 ;DOES 1ST WORD COMPARE? 
4688 O11456 OO1016 BNE 73s “CHECK NEXT MAP 
4689 011460 012767 OO4O00 ODD646 MOV MAP.YD, TABLE 1ST 
4690 O11466 012767 004776 Oo00642 MOV SEND: YD;ALLEND LAST MAP ADDR 
4691 O:1474 012767 173776 OOO644 MOV #173776,LASTA ;LAST ROM ADDR 
4692 011502 012767 000104 o0514e MOV #0001047 VERSON ;SET ROM TYPE 
4693 011510 000167 001052 IMP PRG1 ‘START TEST 1 
4694 011514 795: 
4695 011514 026737 173260 173000 CMP MAP. YF,9#173000 ;DOES 1ST WORD COMPARE? 
4696 011522 OO1016 BNE 84S CHECK NEXT 
4697 011524 012767 o00S000 oODbDe2 MOV #MAP.YF, TABLE ;1ST MAP ADDR” 
4698 011532 012767 005776 O00S76 MOV #END.YF,ALLEND :LAST MAP ADDR 
4699 011540 012767 173776 OOO600 MOV #173776,LASTA LAST ROM ADDR 
4700 O11546 012767 OOD106 o0S076 MOV #000106;VERSON ;SET ROM TYPE 
4701 011554 000167 001006 IMP PRG1 START TEST I 
4702 011560 4S: 
4703 011560 026737 174214 173000 CMP MAP.YG,a#173000 ;DOES 1ST WORD COMPARE? 
4704 O11566 OO1016 BN 89S “CHECK NEXT MAP 
4705 011570 012767 OOB000 000536 MOV #MAP.YG, TABLE ;1ST MAP ADD 
4706 011576 012767 006776 000532 MOV #END.YG,ALLEND ;LAST MAP ADDR 
4707 O11604 012767 173776 O00524 MOV #173776,LASTA LAST ROM ADDR 
4708 Olléi2 012767 000107 005032 MOV #090107, VERSON ;SET ROM TYPE 
4708 011620 000167 o00742 as IMP PRG1 ‘START TEST 1 
4711 011624 026737 175150 173000 CMP MAP. YH,a#173000 ;DOES 1ST WORD COMPARE? 
4712 Oll632 OO1016 BNE 34 ;CHECK NEXT MAP 
4713 011634 012767 007000 000472 MOV #MQP.YH,TABLE ;1ST MAP ADDR 
4714 011642 012767 007776 OO0466 MOV #END.YH;ALLEND ;LAST MAP ADDR 
4715 011650 012767 173776 000470 MOV #173776,LASTA ;LAST ROM ADDR 
4716 011656 012767 000110 004766 MOV #OODL10;VERSON ;SET 
4717 O11664 O00167 000676 IMP PRG1 ‘START TEST I 
4718 011670 QS: 
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4719 011670 104400 O12450 TYPE =, NMATCH ;NOT BM873YA OR B OR C ORD OR F ORG OR H 
4720 011674 O00000 HALT 
4721 011676 005767 oo0442 CONT: TST INITFG -IS THIS THE FIRST TIME START UP? 
4722 011702 001157 BNE $ *BR IF NOT FIRST TIME HERE. 
4723 011704 005167 000434 COM INITFG “SET THE FLAG 
4724 011710 104400 013160 25: TYPE = , BM873X ‘TYPE THE QUESTION. 
4725 011714 104412 RDLIN 
4726 011716 Ol2e60e MOV (SP + R2 
4727 011720 O11202 MOV R2), Re ;PLACE CHARACTER INTO Re. 
4728 011722 922702 o000S2 CMP a> Re iy HIT?? 

4729 011726 OO1011 BNE 64$’ RIF NO 

4730 011730 012767 010000 000376 MOV #MAP.Y.,TABLE ;SET FOR START OF TABLE 
4731 011736 012767 010376 000372 MOV SEND. Y.,ALLEND ;SET END OF TABLE 

4732 011744 012767 173376 000374 MOV #173376,LASTA ;SET LAST ROM ADDR 
4733 011752 64S: 

4734 011752 022702 000101 CMP #101,Re2 WAS A HIT?? 

4735 011756 OO1011 BNE 65$ BR IF NO 

4736 011760 012767 OO1400 000346 MOV #MAP.YA, TABLE ;SET FOR START OF TABLE 
4737 011766 012767 001776 O0034e2 MOV #END.YA;ALLEND ;SET END OF TABLE 

4738 011774 012767 173376 OO0344 MOV #173376,LASTA ;SET LAST ROM ADDR 
4739 012002 65S: 

4740 012002 o22702 oD0102 CMP #102,R2 ;WAS B HIT?? 

4741 012006 O01011 BNE 66S NO 

4742 012010 012767 002000 000316 MOV #MAP. YB, TABLE ISET FOR START OF TABLE 
4743 012016 012767 O02776 o00312 MOV #END.YB,ALLEND ;SET END OF TABLE 

4744 012024 012767 173776 O00314 MOV #173776;LASTA SET LAST ROM ADDR 
4745 012032 66S: 

4746 O12032 O22702 000103 CMP #103, R2 ;WAS ¢ HIT?? 

4747 012036 OO1011 BNE NO 

4748 012040 012767 003000 oD002b6 MOV or. YC, TABLE ISET FOR START OF TABLE 
4749 012046 012767 003776 O002b2 MOV #END.YC,ALLEND ;SET END OF TABLE 

4750 O1e064 012767 173776 O00264 ae MOV #173776;LASTA SET LAST Ron ADDR 

4752 012062 O22702 000104 CMP #104,R2 ;WAS D HIT?? 

4753 012066 OO101! BNE 68$ ?BR IF NO 

4754 012070 012767 OO4000 000236 MOV #MAP.YD, TABLE ;SET FOR START OF TABLE 
4755 012076 012767 O04776 O00e32 MOV #END.YD,ALLEND ;SET END OF TABLE 

4756 012104 012767 173776 000234 ae MOV #173776,LASTA SET LAST ROM ADDR 

4758 Olelle O22702 OO0106 CMP #106,R2 ;WAS F HIT?? 

4759 012116 OO101I1 BNE 69$ NO 

4760 012120 012767 oOO0S000 onDe06 MOV #MAP. YF, TABLE ISET FOR START OF TABLE 
4761 Ol2le6 012767 005776 Oo00202 POV #END.YF;ALLEND ;SET END OF TABLE 

i7be O1e134 012767 173776 O00204 al MOV #173776,LASTA ;SET LAST ROM ADDR 

4764 Olel42 O22702 000107 CMP #107,R2 ;HAS G HIT?? 

4765 012146 OO1011 BNE ? NO 

4766 O121S0 012767 OO6000 o001S6 MOY #MAP. YG, TABLE SET FOR START OF TABLE 
4767 012156 012767 006776 O0D152 MOV #END.YG;ALLEND ;SET END OF TABLE 

i768 blelbs 012767 173776 000154 a MOV #173776,LASTA ;SET LAST ROM ADDR 

4770 012172 O22702 000110 CMP #110,R2 ;WAS H HIT?? 

4771 012176 OO1011 BNE ‘BR IF NO 

4772 012200 612767 007000 on0l126 MOV sMAP.YH,TABLE ;SET FOR START OF TABLE 
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4773 012206 012767 007776 000122 MOV #END.YH,ALLEND ;SET END OF TABLE 

we Oleel4 012767 173776 O001e4 oe MOV #173776,LASTA ;SET LAST ROM ADDR 

4776 Olecee 010267 oo44e4 MOV R2, VERSON ;STORE VERSION TYPE. . 

4777 Olee26 005767 000102 TST TABLE ?HAS A MAP BEEN SELECTED? 

4778 Olee32 001003 BNE 3$ : OK.. 

4779 012234 104400 013235 TYPE BM. ERR TYPE ERROR 

4780 Ol2ee40 000623 BR § G0 AND GET CORRECT MAP. 

4781 Ql2e42 104400 016174 35: TYPE  ,MSG3 -TYPE MESSAGE FOR TEST NUMBER 

4782 O1e24%6 104412 X.X.:  RDLIN 

4783 Ol2250 Ol2602 MOV (SP)+ Re 

4784 OleeS52 011203 MOV (R2) .R3 ;MOV THE CHAR TO R3 

4785 012254 022703 O00061 25: CMP #61,R3 ;WAS 1 HIT?? 

4786 Olee60 001002 BNE 4 -BR FN NO 

4787 012262 000167 000300 JMP PRG1 ; GOTO PRG | 

4788 Oleeb6 022703 O000b2 4g: CMP #62,R3 WAS 2 HIT?? 

4789 Ole272 001002 BNE c$ -BR IF NO 

4790 012274 000167 O01012 JMP PRG2 ‘cord PRG 2 

4791 012300 022703 000063 cs: CMP #63,R3 *WAS 3 HIT?? 

4792 012304 001002 BNE 6$ NO 

4793 012306 000167 001740 JMP PRG3 ‘GOTO PRG3 

4794 Qle312 022703 OO0054 6S: CMP #64, R3 WAS 4 HIT?? 

4795 012316 001002 BNE 3$ :BR IF NO 

4796 012320 000167 002732 IMP PRGY *GOTO PRG 4 

4797 012304 104400 O16400 3S: TYPE M. QM SNE UTHER 1 OR 2 OR 3 OR 4 WAS HIT 

4798 012330 000167 176444 JMP RESTRT TYPE "29" GO TO THE BEGINING. 

4799 012334 000000 TABLE: 0 

4B 000000 ALLEND 

4801 012340 oO10400 EXTMAP: MAP. YX 

4yB02 Ole342 010776 EXTEND: END. YX 

4803 012344 900000 INITFG 

4804 012346 O00000 Lasta: Oo 

4805 012350 104400 012360 NOROM: TYPE § ,NOROMS ;TYPE CAN’T FIND A RESPONSE 

4806 012354 O00000 HALT *NO LOADER INSTALLED? 

4807 012356 060776 BR -2 

4808 012360 005015 051124 OS0101 NOROMS: .ASCII <15><12>/TRAP TO 4 ON 1ST READ OF 173000/ 
012421 015 o44412 020123 "ASCIZ <15><12>7IS LOADER INSTALLED?/ 
012450 oO0S015 O40S03 023516 NMATCH: /ASCIT <15><12>/CAN’T IDENTIFY COADER AS YA,YB,YC,YD,YF,YG OR YH AFTER/ 
01e540 905015 o4es03 20120 "ASCIZ <15><12>/CMP WITH LOC 1730007 
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012767 012566 
1276 


Qee700 173024 


700 173224 


010467 166240 


026767 166320 


032767 004000 


026700 o002e4 


000735 
032767 000001 
022767 173776 


012767 173776 
016704 177344 


0007 16 
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003734 
166416 
000004 
166264 


000322 


166320 


164650 


i64620 
000176 
000166 


; PROGRAM 


1 
; THE PURPOSE 4 PROGRAM 1 IS TO READ THE ROM AND 
‘VERIFY THAT T 
; ARE READ, EXCECPT THE TRAP VECTOR, FIVE TIMES. 


t THE SECOND PART OF THIS TEST ear tat Beg TRYING 


:T0 WRITE THE 


HE DATA IS CORRECT. ALL ADDRESSES 


ESUTS IN * TIME 0 


ROM R 
“ALL ADDRESS ARE WRITTEN WITH 
:,AND ARE EXPECTED TO TRAP. 


PRG1: 
PRG. 1: 


2e$: 


238: 


10$: 


#PRG1, PRG. NO ;SET_ FOR PWR FAIL 


#500, tCOUNT DO THIS TEST SO0(8) TIMES. 
#NO. TRAP, a84 § SET FOR UNEXPECTED TRAP. 
#173000, RO - SET BEGGINING ADDRESS 
#23, SLPADR ‘IF SWI4=1; GOTO. 2$ WHEN SCOPE IS HIT 
TABLE, RY ‘SET START OF M 
LASTA, LAST :SET LAST ADD PRrss 
#5. .R :DO EACH H ADDRESS S TIMES. 
#173024, RO ; DON’ T DO THE VECTOR ADD. 
"BR IF NOT THE VECTOR ADD 

(RO) 4 (R4)+ ;UPDATE TO_NEXT ADDRESS 

73204, RO sDON T DO THE TRAP VECTORS 
5 "NO THIS ISN’T A TRAP VECTOR. 
(RO)+, (R4)+ ‘UPDATE THE POINTERS.. 
RY, SGODAT 
RO’ SBDDAT 
(RO), TEMPY READ THE ADDRESS 
(R4)) TEMP3 READ THE SOFTWARE ADDRESS 
TEMP3, TEMP4 
ees :BR IF GOOD 

; INCORRECT COMPARISON. 
#BIT11,SWR ; QUICK K Pass. ? 
23 YES 
R3 ‘HAS THAT ADD BEEN READ 5S TIMES? 
2$ :BR IF NOT S TIMES 
LAST, RO suns LAST ADDRESS CHECKED? 
LOCK ON THIS ADDRESS IF SW14=1 

(RO)+, (R4)+ + UPDATE THE POINT 
1$ :CONTINUE THE we 
#BI1T0, SWR j EXTENDED WORD TO BE CHECKED? 


R IF NO CHECKING. 
#173776,LAST ‘Ts ALL vee TEST DONE? 


3$ 

#173776, LAST SET LAST ADDRESS. 

EXTMAP, R4 SET EXTENDED MAP. 
+ :POP_ POINTER 

1$ ‘GQ DO THE TEST. 
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4gsg TEST THAT WRITTING ROM RESULTS IN A TIME OUT 
4860 : TRAP. 
4862 013000 012767 013024 166100 3S: MOV #5 SLPADR IF SWi4=1 GOTO S$ WHEN SCOPE IS HIT 
4863 013006 012700 173000 MOV #1 173000, R -SET RO WITH BASE ADDRESS OF ROM 
4864 013012 012737 013060 oo0004 MOV abS, a8 SET FOR TIME OUT T 
4865 013020 012703 o00005 4g: MOV ‘DO EACH ADD S TIM 
4866 013024 022700 173024 cS: CMP + 73Ge4, RO “CHECK FOR p TRAP VECTOR 
4867 013030 001001 BNE 24g ‘BR IF_NOT 
4868 013032 005720 TST (RO)+ : UPDATE Phe EGISTER POINTER 
4869 013034 022700 173224 24$: CMP #173224, RO ‘CHECK FOR THE OTHER VECTO 
4870 013040 001001 BNE BR IF_NOT THE VECTOR 
4871 013042 005720 TST (RO)+ “UPDATE THE POINTER 
4872 013044 012710 177777 25$: MOV #-1, (RO) “WRITE ROM WITH A -1 
4873 013050 o00240 NOP ‘WAIT ONE INSTR. TIME 
4874 013052 010067 166150 MOV RO, TEMPY 
4875 013056 104002 ERROR 2 sWRITING ROM DIDN’T TIME OUT. 
4876 013060 012706 001100 6S: MOV #STACK, SP ‘RESTORE STACK 
4877 013064 032767 OO4000 164476 BIT #B1T11,SUR QUICK PASS? 
4878 013072 001002 BNE 30$ 
4879 013074 005303 DEC R3 ;D0 EACH ADD S TIMES 
4880 013076 001352 BNE $ "NOT DONE WITH THIS ONE YET. 
4882 013100 032767 OODDDl 164462 30%: BIT #BITO, SWR ;EXTENDED 128. WORDS TO BE CHECKED? 
4883 013106 001404 BEQ 
4884 013110 022700 173776 CMP #173776,RO HAVE ALL 256. WORDS BEEN CHECKED? 
4885 013114 001407 BEQ 7§ ‘BR IF ALL DONE 
4886 013116 O00403 BR 32S “KEEP GOING 
4887 013120 026700 177222 31$: CMP LASTA, RO “FALL DONE? ? 
4888 013124 001402 BEQ 75 ;HAVE ALL 128. WORDS DONE? 
4889 013126 OO0004 32$: SCOPE ; CHECK SW14 FOR FREEZE!! 
4890 013130 005720 TST (RO)+ UPDATE TO, NEXT ADDRESS 
4891 013132 00073 BR 4g 506 DO IT AGAIN 
4892 013134 005367 166060 7$: DEC ICOUNT i STERBTION COUNT DONE? 
4893 013140 001004 BNE 8$ ‘BR IF N NE. 
4894 013142 004767 003424 JSR PC, EOP : TYPE END MESSAGE 
4895 013146 000167 177414 IMP PRGI *GO DO IT AGAIN. 
4896 013152 000167 177424 8S: JMP PRG. 1 :GO pect ART 
4837 013156 000000 LAST: 0 
4899 013160 o0S01S5 o40515 ou? BM873X: .ASCII <15><12>/MAINDEC-11-DZBMDH/ 
Bt 3389 Bie 042012 108 "ASCII «15><1e>/DEVI E ve SION/ 
0132 015 O4101e baat 115 “ASCIZ <15><12>/8M87 
013235 015 O2S5012 O404S4Y BM.ERR: .ASCIZ 12> (1a 7 A, B. t “0, F, 6 H ONLY. / 
0132 40 O20040 "ASCIZ 7 VERSION: BM8?3-Y 


O4eS26 = VERS: 
- EVEN 
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4900 

4901 

4902 

4903 

4904 

4905S 

4906 013312 
4907 013320 
4908 013326 
4909 013334 
4910 013342 
4911 013346 
4912 013352 
4913 013356 
4914 013362 
4915 013370 
4916 013372 
4917 013376 
4918 013402 
4919 013410 
4920 013412 
4921 013414 
4922 013416 
4923 

4924 Ol342e2 
4925 013426 
4926 013430 
4927 

4928 

4929 013434 
4930 013440 
4931 O1344e 
4932 013444 
4933 013 
4934 013454 
4935 013462 
4936 013464 
4937 013466 
4938 

4939 013470 
4940 

4941 013474 
4942 013500 
4943 

4944 013502 
4945 013506 
4946 013510 
4947 013514 
4948 013516 
4949 

4950 013520 
4951 013526 
4952 013530 
4953 013534 
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; PROGRAM 
i BLIND READ Ay 


M ROM. 
WILL DUMP THE ii OF THE ROM OUT 


012767 013312 003210 oe MOV #PRG2,PRG.NO ;SET FOR POWER FAIL 
012737 016532 oo0004 MOV #NO.TRAP,a84 § ;SET FOR UNEXPECTED TRAP TO 4 
016767 177014 177622 MOV LASTA, LAST 
2767 000002 177614 ADD Last 
012700 173000 21$: MOV #173000, RO ;SET RO WITH THE STARTING ROM ADD. 
016703 176762 MOV LE,R3 SET POINTER. 
104400 013672 TYPE  ,DH.2 TYPE MESSAGE 
104400 013754 TYPE H. 2B TYPE THE HEADER 
012767 000007 165632 1S: MOV 7, TEMPS *SET COUNTER 
011001 MOV (RO), RI READ THE ROM | 
010067 165626 MOV RO, TEMPS ST ORE RO 
010167 165624 MOV R1, TEMP4Y STORE R 
022767 O10000 176724 CMP #MAP.Y.,TABLE ;IF BHerS. Yx SELECTED; FILL TABLE 
001001 BNE 2S *BR IF NOT 7 873. 
011023 MOV (RO), (R3)+ “FILL THE TABLE. . 
005720 22: TST (RO)+ POP THE POINTER 
104400 016414 TYPE _, MCRLF 
016746 165576 MOV TEMP3, -(SP) 
104402 TYPOC 
104409 O16405 TYPE _ , MSPACE ;TYPE THREE SPACES. 
016746 165566 MOV TEMPY, -(SP) 
104402 TYPOC 
011001 7S: MOV (RO), R1 ;STORE ROM DATA 
010067 165554 MOV RO, TEMPS STORE ROM ADDRESS 
010167 165552 MOV R1; TEMPY : PREPARE DATA FOR TYPE OUT 
022767 010000 176652 CHP #MAP.Y. , TABLE 15 BM873.Y* SELECTED? 
011023 MOV (RO), (R3)+ FILL THE DATA TABLE 
005720 238: TST (RO)+ *POP THE POINTER 
104400 016405 TYPE _, MSPACE 
O16746 165526 MOV TEMPY, -(SP) 
104402 TYPOC 
026700 177450 CMP LAST,RO ;HAS THE HIGHEST LIMIT BEEN HIT? 
001404 BEQ :BR IF 
367 165506 DEC TEMPS ; DECREASE COUN UNTER 
1352 BNE 7§ F NOT O; KEEP GOING 
000721 BR 1$ ‘G0 TYPE ADDRESS NO 
032767 000001 164042 2S: B17 #9170, , SUR 18 THE ufXTENDED 128. WORDS TO BE CHECKED?? 
012700 173400 MOV #173400, RO RESET POINTER OF ROM 
016703 176600 MOV EXTMAP, R3 *SET SOFTWARE MAP POINTER 
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4954 013540 104400 014066 TYPE _—_,DH.2A TYPE NEW HEADER 

495S 013544 104400 013754 TYPE DH. 28 TYPE ADDRESS AND +Xx 

4956 013550 012767 OO00007 165444 &S: MOV 7, TEMPS *SET TYPE OUT COUNTER 

4957 013556 011001 mMOVt (RO) RI "READ THE ROM 

4958 013560 010067 165440 MOV RO, TENPS : STORE 

4959 013564 010167 165436 MOV TEMP4 STORE RI 

960 013570 012023 MOV Rabds (R3)+ ‘STORE THE DATA IN SOFTWARE MAP 

4961 013572 104400 016444 TYPE 

4962 013576 O16746 165422 MOV TEMPS, -(SP) 

4363 013602 10440e | TYPOC 

4965 013604 104400 bxeHOS TYPE MSPACE 

4966 013610 O16746 65412 MOV TEMPY, -(SP) 

4367 013614 104402 TYPOC 

4969 013616 011001. QS: MOV (RO).R1 ;SAVE THE ROM DATA 

4970 013620 010067 165400 MOV RO, TEMP3 :SAVE THE ROM ADDRESS 

4371 013624 010167 » 165376 MOV R1; TEMP4 :SET DATA FOR TYPE OUT 

4373 013630 104400 ‘016405 TYPE _, MSPACE 

4975 013634 O16746 165366 MOV TEMP, -(SP) 

4376. 013640 104402 TYPOC 

4978 013642 012023 MOV (RO) +. (R3)+ ; STORE THE DATA IN SOFTWARE TABLE 

4979 013644 022700 174000 CMP #174000, RO HAS THE HIGHEST LIMIT BEEN HIT? 

4980 013650 001404 BEQ 3$ 'BR IF ALL DONE. 

4981 O01 367 165344 DEC TEMPS ‘DEC TABLE COUNTER 

4982 013656 001357 BNE 8$ :BR TO JUST TYPE DATA 

4983 013660 000733 BR 6$ ;BR_TO TYPE ADDRE 

4984 013662 005000 3S: CLR RO *CLEAR DATA LIGHTS 

498S 013664 000000 HALT *HIT CONTINUE TO PROCEED. 

4986 013666 000167 177420 IMP G2 “GOTO PRG 2 

4987 013672 OO6414 OOSOl2 016412 DH.2: .ASCII < 19> 18> ¢ 12> ¢ 189 ¢ 189 ¢ 35) (97> (1772 (1773 (177) /BLIND READ OF ROM/ 
013725 01S O06412 077577 SCIZ <15><12><15)<177><177>/NOTE: NO CHECKING’ 
013754 OOSO1S O40412 O42104 OH.2B: .ASCIT 15) 18) ¢18)/ADDR ESS ADD+00 ADD+O2 ADD+04/ 
014015 O40 O4044O 042104 SCIZ / ADD+06 ADD+10 ADD+l2 ADD+14 ADD+16/ 
014 905015 o4e412 DH.2A: ASCII < Jeo ¢ 125 (12> “EXTENDED 128. WORD ROM UMP / 
014125 015 O41412 047117 “ASCII (Les ¢133 CONT ENTS DUMPED IS PLACED IN THE SOFTWARE/ 
014206 905015 040515 027120 ae "ASCII <15><12>/MAP. DATA SHOULD BE VISUALLY INSPECTED! / 
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4982 sPROGRAM 3 
4989 ; PROGRAM 3 IS THE SAME AS PROGRAM 1 ONLY YOU THE 
4990 | "USER HAS THE CHANCE TO ALTER THE MAP WHICH IS 
4991 “COMPARED TO THE DATA IN THE ROM ADDRESSES 
1332 ‘NOTE THE FOLLOWING COMMANDS: 
, 
4994 : xD para INSERT DATA; HIT LINE FEED TO ESCAPE. 
4995 :#R RUN RUN TH ‘RAM 
4996 *#L LIST — LIST THC SOFTWARE TABLE ON TTY. 
4997 :*A ADDRESS INPUT THE ADDRESS OF THE DATA YOU WANT TO ALTER. 
4998 :CR CARRAGE RETURN- WHEN IN THE DATA INPUT MODE A CARRAGE RETURN 
4999 : WAITS FOR NEW DAT 
S000 : 
eng 
5003 014252 012767 O142S2 002250 PRG3: MOV #PRG3,PRG.NO ;SET FOR POWER FAIL 
5004 O14260 016701 176050 MOV TABLE: R1 ‘DEFAULT STARTING ADDRESS TO MAP 
014264 010167 000764 MOV R1, ADDRESS ;SAVE THE SOF THARE ADDRESS 
014270 104400 016307. XHOLD: TYPE MASTER TYPE AN ” 
5007 014274 104412 RDLIN 
014276 012602 MOV (SP)+,R2 
5009 014300 O1l202 MOV (R2) Re 
S010 014302 022702 000114 CMP #114’Re sWAS AN "L” (LIST) HIT? 
S011 014306 001464 BEQ —s SRV..L 
5013 014310 022702 O00104 1S: CMP #104, Re ;WAS A “D" (DATA) HIT? 
5014 014314 001413 BEQ SRv.b 
501S 014316 O22702 oonl2e2 CMP #122,Re ;WAS AN "R" (RUN) HIT? 
5016 014322 001002 BNE 10$ 
5017 014324 000167 o0034e2 IMP SRV.R 
5018 014330 O22702 000101 10$: CMP wi0i,Re =. WAS AN “AY (ADDRESS) HIT? 
5019 014334 O01444 BEQ SRV.A 
5020 014336 104400 016400 TYPE M. QM TYPE A "2" 
e021 014342 000752 BR XHOLD NEITHER A "L”,"P""D","R", "A", OR CR WAS HIT. 
5023 O14344 016767 O00704 164654 SRV.D: MOV ADDRESS, TEMP4Y RESET ADDRESS POINTER. 
S024 014352 104400 016414 TYPE MCRLF 
S025 014356 O16746 164644 MOV TEMPY, -(SP) 
S026 014362 016701 164640 MOV TEMPY’R1 
5027 014366 104402 TYPOC 
s0s5 014370 104400 016405 TYPE _, MSPACE 
5031 014374 104414 RDOCT 
e03e 014376 012611 MOV (SP)+, (RL) ;STORE DATA 
5034 o14409 005721 TST (RL) UPDATE THE SOFTWARE A ADDRESS 
5035 O14402 026701 175734 CMP EXTEND, RI tts T LIMI 
0 14406 103413 BLO 7§ Ne T het HGEEDED! ERROR. 
14410 010167 164612 MOV R1, TEMPY Abone 
£038 014414 1O4400 16414 TYPE F 
£039 014420 O16746 164602 MOV TEMPY, -( SP) 
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014Se2e 


014S26 
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014S46 
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014S64 
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010167 o0062e2 MOV R1, ADDRESS ;SAVE THE ADDRESS FOR GOOD 
000167 17763e JMP XHOLD 

104400 016400 7S: TYPE ay QM -TYPE A "2" 

000167 177622 JMP XHOLD 


;YOU ARE HERE BECAUSE YOU HIT AN “A” 
;YOU TOLD ME YOU WERE GOING TO INPUT AN ADDRESS. 
30 | INPUT THE ADDRESS AND TERMINATE WITH A CARRAGE RETURN. 


104414 SRV.A: RDOCT ;READ THE ADDRESS HE WANTS TO MODIFY. 
012667 OO0600 MOV (SP +, ADDRESS 

000167 177610 4g: IMP OLD 

: YOU ENTERED HERE BECAUSE YOU HIT “L” 
YOU TOLD ME YOU WANTED A LISTING OF THE SOFTWARE MAP 
:SO HERE IT IS. 
SRV.L: 

016700 175650 MOV TABLE, RO “CET SOFTWARE MAP 
016767 175646 000176 MOV ALLEN, DEAD SET DEAD END POINTER 
104400 016226 TYPE MSG :TY 

104400 013754 TYPE H.2B “TYPE ADDRESS ADD+X 
012767 000007 164512 15S: MOV pri TEMPS jSET COUNTER FOR ACCROSS PAGE 
011067 164512 MOV (RO) TEMP’ ATA 

010067 164504 MOV TEMPS OE ADDRESS 

005720 TST RR Rays ‘UPDATE ADDRESS POINTER 
104400 016414 TYPE NCRLF 

016746 164472 MOV TEMP3, -(SP) 

104402 TYPOC 
104400 016405 TYPE —_, MSPACE 

O16746 164462 MOV TEMPY, -(SP) 

104402 TYPOC 

104400 016405 TYPE _, MSPACE 

011067 164450 2s: MOV (RO), TEMP4 GET DATA 

010067 164442 MOV RO. TEMP3 GET ADDRESS 

005720 TST (RO)+ “UPDATE POINTER 
016746 164436 MOV TEMPY, -(SP) 

104402 TYPOC 

104400 016405 TYPE ,MSPACE 

016703 o00066 33: MOV DEAD, R3 

005723 TST (R3)+ ; UPDATE POINTER 
020003 CMP RO,R3 ;LIMIT DONE ? 

001404 BEQ S YES 

005367. 164406 yg: DEC TEMPS ‘DEC DATA COUNTER 


001356 BNE e$ ;BR IF MORE DATA TO GO 
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5097 014620 
50 01462 
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;GET READY FOR UNEXPECTED TRAP 


0 a WHEN I HIT “SCOPE” 


; DRESS 
31S THIS THE SECOND TRAP VECTOR?? 
;READ THE SOFTWARE ADDRESS 


‘BR IF YES 
"HAS THAT ADD BEEN READ 10 TIMES? 
: WAS LAST ADDRESS CHECKED? 


000731 = BR 1$ :TYPE THE ADDRESSS 
032767 000001 162742 BIT ¥B1TO, SHR j EXTENDED SOF THARE DUMP? 
005743 TST =(R3) PUSH POINTER 
026703 175504 CMP EXTEND, R3 
001412 BEQ § ;BR IF ALL DONE 
104400 016254 TYPE MSGS -TYPE EXTENDED MAP: 
104400 013754 TYPE DH.2 
016700 175464 MOV EXTMAP, RO :SET POINTER 
O16/67 175462 000006 HOV EXTEND, DEAD SET DEAD END POINTER 
000167 177400 6S: JMP XHOLD 
oo0000 DEAD: 0 
:NOW YOU ARE HERE BECAUSE YOU WANT TO RUN THE PROGRAM 
“REMEMBER NOW, YOU SET UP THE MAP. 
jARE YOU SURE YOU TYPED IN THE CORRECT DATA. ??? 
SRV.R: 
012737 016532 OO0004 RUN3: MOV #NO. TRAP, a#4 
012767 OO00SOO 164312 MOV #500, ICOUNT *DO TEST SO0(8) TIMES 
012700 173000 RUN.3: MOV #173000, RO “SET BEGGINING ADDRESS 
012767 014736 164166 MOV #2$, SLPADR : 14=1; GOT 
016704 175410 MOV TABLE, R4 :SET SOFTWARE RESUTS 
016767 175416 176224 MOV LASTA, LAST *SET LAST ADDRE 
012703 oo000S 1S: MOV #5..R °DO EACH ADDRESS S TIMES. 
082700 173024 25: CHP #173024, RO : DON’T D0 THE VECTOR ADD. 
022024 CMP (RO) +. (R4)+ ‘UPDATE TO NEXT 
700 173224 30S: CMP #173224, RO 
001001 BNE 10$ *BR IF NOT VECTO 
022024 CMP (RO)+, (R4)+ :UPDATE THE POINTERS !! 
010467 164142 108: MOV RY, SGODAT 
010067 164140 MOV RO. SBDDAT 
011067 164234 MOV (RO), TEMPY ;READ THE ADDRESS 
011467 164226 MOV (R4)’ TEMPS 
026767 lb4222 164222 CMP TEMP3, TEMP4 
001401 BEQ 1$ ;BRANCH IF OK 
104001 ERROR 1 INCORRECT COMPARISON. 
767 OOY000 162552 11%: BIT #BIT11,SWR QUICK PASS. 
001002 BNE 12$ 
005303 DEC 
001345 BNE 2$ BR IF NOT 10 TIMES 
026700 176126 123: CMP LAST, RO 
001403 BEQ 1S$ ‘BR IF YES 
000004 SCOPE "LOCK ON THIS ADDRESS? 
Oe2024 CHP (RO)+, (R4)+ jUPORTE THE POINT > 
032767 OO00001 162522 15$: BIT #BITO, SWR 
001413 BEQ $ ‘BR IF NOC ; 
022767 173776 1.6100 CMP #173776,LAST | 31S ALL THE TEST DONE? 
001407 BEG 3$ -BR IF YES. 
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012767 173776 176070 
016704 175246 

005720 

000716 


MOV 
MOV 
TST 
BR 


#173776 
(RO)+ ” 
1 


+ 


P,R 


Dll 


LAST 
y 


;SET LAST ADDRESS. 
; SET ESTEE MAP. 


:POP_P 
:G0 DO THE TEST. 


Ell 
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S154 TEST THAT WRITING ROM RESULTS IN A TIME OUT 

155 : TRAP. 

$157 015076 012700 173000 3S: MOV  #173000,RO ;SET BASE ADDRESS 

5158 015102 Ole767 O15i22 163776 MOV sa, SLPADR SIF SW14=1; GOTO Re 

5159 015110 012737 015156 O00004 MOV WS, O84 ‘TIME OUT TRAP; GOTO 6S 

5160 015116 012703 000012 4S: MOV —s- 810. R3 D0 EACH ADD 10 T TIMES 

5161 015122 022700 173024 5S: CMP 4173024, RO ;1S THIS AT THE TRAP VECTOR 

S162 015126 001001 BNE 208 NO 

5163 015130 005720 TST (RO)+ SUPDATE POINTER 

5164 015132 022700 173224 208: CMP = #173224,RO 1S THIS AT THE SECOND TRAP VECTOR 
5165 015136 001001 BNE al :BR IF _N 

5166 015140 005720 TST (RO)+ :UPDATE THE POINTER 

5167 O15i42 012710 177777 218: MOV #1, (RO) ‘WRITE ROM WITH A -1 

5168 015146 oo0240 NOP WAIT ONE INSTR. TIME 

5169 O151S0 010067 164052 MOV —RO, TEMP4 

5170 015154 104002 ERROR 2 MRITING ROM DIDN'T TIME OUT. 

5171 015156 012706 001100 6S: MOV - SSTACK, SP RESTORE STA 

5172 015162 032767 OO4000 162400 BIT  _ #BITII; SUR iu fick pass? 

5173 015170 001002 BNE 225 YES 

5174 015172 005303 DEC —_-BRGB ;D0 EACH ADD 10 TIMES 

$175 015174 001352 BNE 5 NOT DONE WITH THIS ONE YET. 

5176 015176 032767 OO00001 162364 22$: BIT sBITO,SWR ;1§ THE EXTENDED 128. WORDS TO BE TESTED?? 
5177 015204 001404 BEQ :BR IF_N 

5178 015206 022700 173776 CMP —s- #173776, RO 1S THE EXTENDED LIMIT BEEN TESTED? 
5179 Ol52i2 001407 BEQsi‘ié77S; tIF YES; 7§ 

5180 015214 o00403 BR 24S :IF NO; KEEP GOING. 

5181 015216 026700 175124 238: CMP —_LASTA,RO ZALL DONE?? 

5182 015222 001403 BEQ ss ;1F YES; GOTO 7S 

5183 015224 OO0004 24$: SCOPE ‘G0 CHECK SW14; (PREEZE !!) 

5184 015226 9005720 TST (RO)+ ;UPDATE TO NeXt A ESS 

5185 015230 000732 BR IT 

5186 015232 005367 163762 7S: DEC —«ICOUNT t CHECK ITERATION COUNT 

5187 015236 001004 BNE 8 MORE TO G 

$188 015240 004767 001326 JSR —~PC, EOP G0 TO END OF PASS ROUTINE 

5189 0152044 000167 177422 JMP = RUNG G0 DO TEST AGAIN 

6190 015250 O00167 177432 8S: JMP  — RUN. 3 

5192 015254 000000 ADDRESS: 0 
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012767 


016746 
104402 
104400 


013767 
104400 


016746 
104402 


015256 


016405 
163650 
016405 


016070 


173024 
001100 


173024 


016405 
163562 


4 
173224 
016405 


163526 
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001244 


163716 


000004 
163664 


000004 
163572 


; PROGRA 
‘PROGRAM, 4 


CHECKS THE TRAP VECTOR ADDRESS. 


j THE PROGRAM SIMULATES ACTIVATING THE BUTTON 
AND THEN READS 


:FOR EACH CHANNEL 
Toe CONTENTS OF T 


TH ESS. 
FIRST PASS wo WILL 


WHAT WAS FOUND BEFORE. 


PRGY: MOV #PRGY, PRG. NO 
CLR LSTERR 
MOV #STACK, SP 
MOV #20000, ICOUNT 
TST FLAGY 
BNE TAG.A 
COM FLAGY 
MOV 2,RS 
MOV L6c1,R4 
MOV #NO. TRAP, aa4 
MOV TEMP3 

1$ TYPE ,MCHAN 
TYPE | MSPACE 
MOV TEMP3, -(SP) 
TYPOC 
TYPE  , MSPACE 
TYPE »MACTY 

2s: TYPE MADD1 
MOV $ 173024, RO 
CLR 3#173024 
MOV RS, a#173024 
NOP 

3S: MOV #STACK, SP 
MOV #173024 RO 
MOV #NO. TRAP, #4 
MOV 39172064 TEMPS 
TYPE MSPACE 
MOV TEMPY, -( SP) 
TYPOC 
MOV 3#173024, (R4)+ 
TYPE mabD 
MOV 173 
MOV 3eizaeed" OEMPY 
TYPE _, MSPACE 
OV en 
TYPOC 


Y 
; TER t THIS THE PROGRAM 
fh ER IF DIFFERENT THAN 


;SET FOR POWER FAIL 

PREPARE ERROR CONDITIONS 

:SET THE STACK POINTER 

;SET ITERATION COUNT TO €0000(8) 
;HAVE_I BEEN HERE BEFOR?? 

iSET THE NOT Ag TIME HERE. 


TYPE MESSAGE ABOUT CHANNEL 


; TYPE REST OF MESSAGE 
;TYPE ADDRESS MESSAGE 


j WRITE ROM WITH SWITCH 
;WAIT ONE INSTR. TIME 
;SET THE STACK POINTER 


ioe FO E 
:READ THE ADDRESS 


saT One THE INFORMATION FOUND 
; TYPE THE SECOND ADDRESS MSG 
:SET FOR ERROR CONDITION. 
‘STORE ROM DATA 


he the 
DZBMDH.P 


COKD0T0D0D0000000 ec0000 © - 


~_ 

wun) 

wou 
~ 
oOo 


bs b= b= bb bb bb bb Bb bb 2b bb bp pe fH hehe 
wu 


-_ 
Raves 
<£ Ca 


atatcgteat ate 
NOL 
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013705 


163516 


000040 
177532 
oo0gde 


173024 
001100 


016532 
173024 


173224 


000040 
162310 


177777 
173024 


173224 


Gll 


18-FEB-77 15:18 PAGE 136 


000004 


oo0004 


163316 


163376 


163252 
163344 


173224 


163160 
163252 


173024 


TAG.A: 


1$: 


2S: 


30$: 


315: 


225: 


TEMP3 
RS 
#40, RS 
1$ 
PRGH 


d#l 
Ra, a#173024 
SSTACK SP 


aNd. 7aoes, ae4 
Oey, RO 


LOC1, TEMP3 
Hei 74004 TEMPY 
R1,RS 
08 
#173224, RO 


R1,RS 

31$ 

(R4)+ 

R3 

#40,R3 
ICOUNT 

TAG.A 

#-1 98173224 

38173024 
#173024, RO 
LO 

Sai? 73024,R 


8173024 \eBepar 
#173024, TEMPY 

a RS 

32$ 


1 
#1 3#173024 
#173224 

1179254, RO 


LO 
#173224, RS 


;GET READY fie met SWITCH SETTING 
CLEAR THE CARRY BIT 

ALL SIMULATED SWITCHS DONE? 
;BR_IF NOT 


; MP AND DO TEST AGAIN WITH OUT TYPE OUT 


;SIMULATE SWITCH 1 
GET LOCATION WHERE DATA 5 STORED 
PREPARE FOR TIME OUT TRA 


j WRITE THE ROM 


;SET FOR ORE TR 
i2 FOR ERROR MESSAGE 
;SET FOR COMPARIS 


PARISON 
GET THE DATA FROM THE ROM 


® 


;IS THE DATA THE SAME?? 

;BR IF GOOD DATA. 

ERROR. DATA READ FIRST TIME NOT THE SAME 
;SET 4 ERROR MESSAGE 

READ THE ROM 


iTS THE dy THE SAME? 
;ERROR. DATA NOT NTER. SAME AS BEFORE. 


ee 
HAVE -, SETTING BEEN DON 
BR IF_N ONE 

Be ie W01 COUNT DONE 


i 
WRITE SECOND TRAP VECTOR WITH -1 
ZERO THE FIRST VECTOR 
SET FOR TYPE OUT IF ERROR 
SET FOR TYPE OUT ROUTINE 
;SAME AS ABOVE 


i1S DEFAULT LINE SELECTED =TO LINE 1 


oO 
xz 
| om 
nn 
o 
m 
a) 
D 

oc 
me 
oe 
m 
e 
Ps 
w 
= 
_ 

P 4 
a 
~ 


;2E ND_VECTO 
‘BET bat R TYPE OUT iF ERROR 
;READ ROM 
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$301 016010 Ol2767 173224 163110 MOV #173224, SBDDAT 
eas 016016 013767 173224 163202 MOV #173224, TEMPY 
5304 O16 020105 CMP R1,RS ;1S LINE 1 DEFAULT LINE 
5305 016026 001401 BEG 33$ ;BR IF OK 
5306 016030 104001 ERROR 1 ;ERROR_LINE 1 NOT DEFAULT LINE 
5307 016032 GO4767 000534 338: JSR PC EOP ; TYPE END MESSAGE. 
4 016036 000167 177214 JMP PREY ;GOTO PROGRAM 4 AGAIN 
5310 016042 000000 LOC1: OQ 
5311 016044 000000 LoCe: QO 
S3l2 016046 000000 LOC3 0 
5313 016050 000000 LOCH: Q 
5314 016052 o000C0 FLAGY: 0 


Ill 
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S315 016054 O0S01S 041412 O4OSIO MCHAN: .ASCIZ C15) (18) <12>/CHANNEL / 
016070 941501 O44S24 O40S26 MACTV: .ASCIZ/ACTIVATED./ 
016103 015 O4O4l2 O42104 MADDI: .ASCIZ <15><12>/ADDRESS 773024 CONTAINS: / 
016137 015 O404l2 O42104 MADD2: .ASCIZ <15><12>/ADDRESS 773224 CONTAINS: / 
cae 016174 EVEN 
S317 016174 OOS01S 051120 043517 MSG3:  .ASCIZ <15><12>/PROGRAM NO. (1,2,3 
016226 006414 O16412 077437 MSGY:  .ASCIZ C1) 15) C12) C359 (375 179197» «177» /SOF THARE MAP: / 
016254 o005015 O200l2 OS410S MS ASCIZ (15> <12)<129/ EXTENDED SOFTWARE MAP: 
016307 15 O2S5012 000 MASTER: .ASCIZ <15)<12)7%/ 
016313 007 O06407 o4e4le N-END: “ASCIZ <7><7><15><12>/END PASS BM873-Y/ 
016340 ooS015 053520 O20122 -ASCII <15><12>/PWR UP AFTER/ 
016356 005015 O42522 046101 -ASCIZ <15><12>/REAL PWR FAIL/ 
016376 o00044 M.DOL: .ASCIZ /$/ 
016400 005015 037477 000 M.QM: .ASCIZ <15><12>7777 
016405 040 o00040 MSPACE: .ASCIZ 7 / 
016410 o20040 o00040 SPACE3: .ASCIZ / / 
016414 905015 000 MCRLF: .ASCIZ <15><12> 
016417 Ole 000 MLF: LASCIZ <l2> 
016422 EVEN 


§318 
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S319 016422 005067 162570 .PFAIL: CLR LSTERR 
5320 016426 013746 000004 MOV. @84,-(SP) 

5321 016432 012737 O16462 o00004 MOV #1$/a84 

S322 016440 005737 173000 TST 3#173000 -IS THIS PF REAL? 
5323 O16444 000240 NOP - TRAP IS CAUSED BY LOADE 

5304 016446 (Cl2737 016472 o00024 MOV KPWR.UP,d824 ITS REAL. PREPARE FOR PWR UP 
5325 O164S4 012637 OO0004 MOV (SP)+, ab4 

S326 O16460 000000 HALT 

5327 O16462 005726 1S: TST (SP)+  ;POP THE STACK. 

5328 016464 012637 OO0004 NOV (SP)+, 0 

5329 016470 O00000 HALT HARDWARE ERROR. BOOT DIDN’T FORCE 
5330 HIGH RODR yLINES BND LOAD BUTTON WAS ACTIVATED 
5331 016472 012737 O1642e oo0024 PUR. #.PFAIL, 824 

5332 016500 012706 001100 NOY sSTACK, SP 

5333 016504 o0S000 CLR RO ;SET DELAY 

5334 016506 062700 000001 1S: ADD #1,RO ‘WAIT FOR TTY 
5335 016512 001375 BNE 1 

5336 016514 104400 016340 TYPE MFAIL : TYPE FAILED. 
5337 016520 005067 161252 CLR bs ‘SET STATUS TO ZERO 
5338 016524 000177 660000 IMP @PRG. NO 

5339 016530 o00000 PRG.NO: 0 

5340 016532 NO. TRAP: 

5341 016532 011667 000032 MOV (SP) xSTORE 

S342 016536 032716 100000 BIT eB1Tis, 

5343 016542 O01410 BEQ 1$ 

5344 016544 011600 MOV (SP) ,RO 

5345S 01654 104004 ERR 4 

5346 016550 012706 001100 MOV #STACK, SP 

5347 016554 005067 161216 CL 

5348 O16560 000177 177744 IMP PRG. NO 

5349 016564 104003 1S: ERROR 3 

5350 016566 O00002 TI 

o351 016570 900000 XSTORE: O 

5353 016572 OO0S067 162420 EOP: CLR LSTERR 

5354 016576 104400 016313 TYP 

5355 01 104400 016652 TYPE VERSON 

5356 016606 013701 o0004e MOV dave, Rl 

5357 Olbble OO14i6 Q x1 

5358 016614 022767 O12566 177706 CMP #PRG1, PRG. NO 

5359 Ol6622 001002 BNE . +6 

5360 016624 OO00i67 176426 JMP PRGY 

5361 016630 013701 Ooo004e MOV a#42,R1 

C362 016634 001405 Q 

5363 016636 O00005 RESET 

5364 016640 SENDAD: 

5365 O16640 004711 LOGIC: JSR PC, (R1) 

S366 Ol664e O00240 NOP 

5367 O16644 O00240 NOP 

5368 O16646 000240 NOP 

£369 O16650 000207 XI: RTS PC 

£370 O16652 O00101 VERSON: 101 ;SEVEN BIT ASCII FOR DEFAULT “A” 
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DZBMDH.P11 
5371 016654 
$372 016662 
$373 
5374 
$375 
5376 
$377 
5378 
5379 
5380 
5381 
$382 
5383 
5384 
5385 
5386 
5387 
5388 
$389 
5390 
5391 
$392 
5393 
5394 
5395 
5396 
5397 016664 
5398 016670 
5399 0616672 
5400 016674 
5401 016676 
S402 016700 
S403 016704 
S404 016706 
S405 016710 
S406 016712 
S407 016714 
5408 016720 
5409 016722 
S410 016726 
S411 016732 
S412 016734 
S41 
S414 016740 
S415 016744 
S416 016746 
S417 016752 
S418 016754 
S419 016760 
S420 016762 
S421 016770 
S422 
S423 
S424 


MACY11 27(663) 
ROM CONTENTS TABLES 


cosh 041520 O20072 MERRPC: .ASCIZ <15><l2>/PC: / 


016664 


105767 
e 


162261 


oo000e 


000002 


oocde6 
l62e16 


162206 
000001 
o0000e 
162162 
000002 
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162154 


- EVEN 
-MCALL .SEOP, .STYPE, .STYPOCT, .SPOWER, .SREAD 
5 SEI 


.SBTTL TYPE ROUTINE 


;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER 1 LINE FEED. 

;*NOTE1: $NULL_CONTAINS THE CHARACTER TO BE USED AS T HE” FILLER CHARACTER. 
; ¥NOTEe: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
;¥NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. | 


: ¥CALL: 
#1) USING A TRAP INSTRUCTION 
TYP , MESADR ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


: TYPE 
is MESADR | 
ie) USING A JSR INSTRUCTION 
+ MOV PS,-(SP) ;PUSH PROCESSOR STATUS WORD ON THE STACK 
1% JSR PC; STYPE ‘CALL TYPE ROU 
x MESADDR :FIRST ADRESS” OF NRESSAGE 
$TYPE: TSTB STPFLG 15 THERE A TERMINAL? 
HALT HALT HERE IF NO TERMINAL 
BR i LEAV E 
1$ MOV - “SAVE RO 
MOV ROtSPS Ro GET ADDRESS OF ASCIZ STRING 
2$ Hove (fos, ~(SP) ; PUSH CHARACTER R TO BE TYPED ONTO STACK 
TST (ep )+ rIF TERMINATOR TOO IT OFF THE STACK 
MOV (SP)+, RO 
3: abo #2, (SP) :AOTUST RETURN PC 
4g: JSR GO TY THIS cagites 
cs: CMPB SFtitc, (SP) *1S IT TIME FOR FILLE CHARS. ? 
BNE :IF_NO GO GET NEXT 
MOV $NULL , -(SP) ier 4 OF FILLER ¢ ouane "NEEDED 
6S: DECB =s-«1( SP) ‘DOES A NULL NEED Ro BE TYPED? 
BLT o$ -BR IF No-~G0 POP THE NULL OFF OF STACK 
JSR PC,7$ :GO TYPE A NULL 
73: ISTE a$TPS WAIT UNTIL PRINTER IS READY 
MOVE e(SP) , aSTPB ;LOAD CHAR TO BE TYPED INTO DATA REG. 


5p RARER RRR EE RARER EE RE EEE EEE REE EER EEE E EE 
-SBTTL TTY INPUT ROUTINE 


Lil 
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H TTY INPUT ROUTINE 
S425 

Hee sent A SINGLE CHARACTER FROM THE TTY 

5428 ' te RDCHR s INPUT A SINGLE CHARACTER FROM THE TTY 
sve : % RETURN HERE “CHARACTER IS ON THE STACK 

5431 

S432 016772 O11646 SRDCHR: MOV (SP), -(SP) : PUSH DOuN THE PC 

5433 016774 016666 000004 oD0002 MGV 4(SP},2(SP) fe — THE PS 

S434 017002 105777 162130 1S: TSTB =: AS TKS OR 

5435 017006 100375 BPL 1$ if CHARACTER 

S436 017010 117766 162124 oOo0004 MOVB te TKB 4(SP) *READ THE TTY 

5437 017016 O42766 177600 OO0004 BIC #10177), 4(SP) *GET RID OF JUNK IF ANY 

5438 017024 oo0002 RTI °GO BACK TO USER 

5439 AiettiiiiteriiitiiteiiteEeeLE Er eorir ioe ries tt ett 

S440 jRINPUT A STRING FROM THE TTY 

sy4e : RDLIN ; INPUT A STRING FROM THE TTY 

S443 * RETURN HERE ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
She 1% ‘TERMINATOR WILL BE A BYTE OF ALL O’S 
S446 017026 010346 SRDLIN: MOV -(SP) -SAVE R3 

S447 017030 012703 017134 1S: MOV Retin R3 GET ADDRESS 

S448 017034 022703 017144 2s: CMP aSTTYINSS. ,R3 ‘BUFFER FULL? 

5449 017040 101405 BLOS 4g ;BR YES 

S450 017042 104410 ROCHR GO READ ONE CHARACTER FROM THE TTY 
S451 O17044 112613 MOVB  (SP)+, (R3) GET CHARACTER 

S452 01704 122713 000177 CMPB =—s-s«#177, tR3) -1S IT A RUBOUT 

5453 0170S2 001003 BNE i SKIP IF NOT 

S454 017054 104400 001152 4g: TYPE SQUES YPE A ’?? 

S455 017060 000763 BR {gs tO EAR THE BUFFER AND LOOP 

S456 017062 111367 OO0044 3S: MOVB  (R3),8 “ECHO THE CHARACTER 

5457 017066 104400 017132 TYPE g 

5458 017072 122723 o00015 CMPB sa IS, (R3)+ ;CHECK FOR RETUR 

S459 017076 001356 BNE 2$ *LOOP IF NOT RETURN 

5460 017100 105063 177777 CLRB =s_- = 1 (R3) ‘CLEAR RETURN (THE 15) 

5461 017104 104400 001154 TYPE SLF ‘TYPE A LINE FEED 

5 017110 012603 MOV (SP)+,R3 RESTORE” R3 

S463 O171lle O11646 MOV (SP), -(SP) pO Just THE STACK AND PUT ADDRESS OF THE 
S464 017114 O16666 O00004 oD0002 MOV 4(SP}2(SP) FIRST ASCII CHARACTER ON IT 
S465 017le2 012766 017134 OO00004 MOV aSTTYIN, 4(SP) 

S466 017130 oo0002 RTI mt URN 

S467 017132 000 8S: .BYTE 0 ‘STORAGE FOR ASCII CHAR. TC TYPE 

S468 017133 900 “BYTE 0 : TERMINATOR 

5469 017134 900010 STTYIN: .BLKB 8. RESERVE 8 BYTES FOR TTY INPUT 

Bua PE UTETTrereeerererr errr Tree etre Ter TTT TTtTierer etre tti etter ite 

2u7e pee BINARY TO OCTAL (ASCII) AND TYPE 

a4? ; #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
cu7E 4 MOV NUM, -(SP) ; NUMBER TO BE TYPED 

5477 * TYPOS sca FOR TYPEOUT 


5478 ;# -BYTE N N=] TO & FOR NUMBER OF DIGITS TO TYPE 
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5479 ;* -BYTE -M ;M=1 OR 0 


5480 + -1=TYPE LEADING ZEROS 
5481 is i O=SUPPRESS LEADING ZEROS 
5483 t SSTYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
Susy *$TYPOS OR $TYPOC 

Sugs :¥CALL: 

S486 * MOV NUM, -(SP) | sNUMBER TO BE TYPED 

5487 i TYPON ,  $CALL FOR TYPEOUT 

S489 | #§TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

5491 i. MOV. NUM,-(SP) ;NUMBER TO BE TYPED 

32 te TYPOC CALL FOR TYPEOUT 

S494 017144 017646 OO0000 STYPOS: MOV a(SP),-(SP) sPICKUP THE MODE 

S495 017150 116667 000001 000211 MOVB 1(SP);$OFILL “LOAD ZERO FILL SWITCH 

5496 017156 112667 000207 MOVB = (SP)+; SOMODE+1 ‘NUMBER OF DIGITS TO TYPE 
5497 017162 062716 000002 ADD #2, (SP) ‘ADJUST RETURN ADDRESS 

5498 017166 OOO4O6 BR TYPON 

S499 017170 112767 OO00001 000171 STYPOC: MOVB #1,SOFILL ;SET THE ZERO FILL SWITCH 
5500 017176 112767 OOO00& 000165 MOVB 4&6, SOMODE+1 SET FOR SIX(6) DIGITS 

S503 017204 112767 OO000S OO01S4Y STYFON: MOVB #5,SOCNT SET THE ITERATION COUNT 

E662 017212 O10346 MOV R3,-(SP) SAVE RG ) 

S503 017214 oO10446 MOV RY; -(SP) “SAVE RY / 

S504 017216 O10S46 MOV RS; -(SP) SAVE RS 

s50S 017 116704 000145 MOVB  SOMODE+1,R4 :GET THE NUMBER OF DIGITS TO TYPE 
S506 017224 O0S404 NEG RY 

5507 017226 062704 OO0006 ADD #6,R4 ;SUBTRACT IT FOR MAX. ALLOWED 
5508 017232 110467 000132 MOVB —- R4; SOMODE SAVE IT FOR USE 

5509 017236 116704 000125 MOVE  S$OFILL,RY ‘GET THE ZERO a SUITCH 
6510 017242 O1660S5 O00012 MOV 12(SP),RS "PICKUP THE INPUT NUMBER 

5511 017246 005003 CLR R3 “CLEAR THE OUTPUT ORD 

S512 017250 006105 1S: ROL RS ; ROTATE MSB INTO ™ 

5513 017252 OO0404 BR 3$ MSB 

5514 017254 006105 23: ROL RS FORM THIS DIGIT 

5515 017256 006105 ROL RS 

5516 017260 006105 ROL RS 

5517 017262 010503 MOV RS,R3 

5518 017264 006103 3S: ROL R3 GET LSB OF THIS, »DIGIT 

5519 017266 105367 000076 DECB  SOMODE ‘TYPE THIS DIGIT? 

5520 017272 100016 BPL _;BR_IF_NO 

652: 017274 042703 177770 BIC #177770,R3 *GET RID OF JUNK 

SS22 0173200 001002 BNE 45 ‘TEST FOR O 

S523 017302 005704 TST RY ; SUPPRESS THIS 0? 

S604 017 001403 BEQ S$ :BR IF YES 

SSe5 017306 005204 4S: INC RY ‘DON’T SUPPRESS ANYMORE o's 
6526 017310 052703 oo0060 BIS #’0,R3— *MAKE THIS DIGIT ASCI 

5527 017314 052703 OO0040 S$: BIS #’ 'R3 : MAKE ASCII IF NOT Si READY 
5528 017320 110367 Oo0040 MOVB = RB, BS :SAVE FOR TYPI 

5529 017324 104400 017364 TYPE a¢ 50 TYPE THIS DIGIT 

5530 017330 105367 000032 7S: DECB 3423=s-« SOCNT : COUNT 

5531 017334 003347 BGT 2 *BR IF MORE TO DO 

6532 017336 o0240e2 BLT 6$ *BR IF DONE 
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ll NARY TO OCTAL (ASCII) AND TYPE 
Bea Otoade | DOOzdM ne ORS SOOTHE Last DIGI?» | NK 
5535 017344 012605 6S: MOV (SP)+,R5 RESTORE RS 
5536 017346 012604 MOV (SP)+;R4 RESTORE RY 
5537 17350 012603 MOV (SP)+,R3 "RESTORE R3 
5538 017352 O16666 O00002 o00004 MOV 2(SP),4(SP) *SET THE STACK FOR RETURNING 
5539 017360 Ole6l6 MOV (SP)+, (SP) 
5540 017362 000002 RTI sRETUR | 
SS41 017364 990 8S: .BYTE 0 :ST ORAGE FOR ASCII DIGIT 
es Bree Oe soo, cere § idea oretr souwen : 
S544 017367 000 SOFILL: “BYTE 0 :ZERO FILL SWITCH 
SS4S 017370 ooo000 SOMODE : 0 UMBER OF DIGITS TO TYPE 
2a Oo EHS HHHA RHEE HEHEHE HEHE HEHEHE SHIEH EE OEE EEE 
2218 .SBTTL SCOPE HANDLER ROUTINE 
5550 -*SW14=1 LOOP ON TEST 
5551 i STHE TEST NUMBER (STSTNM) IS INCREMENTED AND DISPLAYED IN DISPLAY<7:0> 
562 :#AND THE ERROR FLAG aSERELG) IS DISPLAYED IN DISPLAY<15:08> 
5554 017372 SSCOPE: 
SSSS 017372 006137 177570 ROL aeSWR ;LOOP_ON PRESENT TEST? 
5556 017376 100425 BMI SOVER YES IF SW 
5557 #8eeeSTART OF CODE FOR THE XOR tESTERSHNSS 
© ctaed pe perm BoM Hf RE OE Od ES 
5560 O17402 013746 OOO0004 MOV O#ERRVEC, -(SP) : SAVE THE CONTENTS OF THE ERROR VECTOR 
5561 017406 012737 017426 OOO004 MOV #5$, JHERRVEC ;SET FOR TIMEOU 
5562 017414 005737 177060 TST 3%1?7060 I R? 
ob3 o17ue0 012637 000004 HOV (SP + .dHERRVEC ;RESTORE THE ERROR VECTOR 
5565 017426 O22b26 Ss: CMP (SP)+, (SP)+ ‘CLEAR THE STACK AFTER A TIME OUT 
5Sp6 017430 012637 OO0004 : MOV (SP) +; J¥ERRVEC ;RESTORE THE ERROR VECTOR 
5567 017434 OOO4D6 BR SOVER’ OOP ON THE PRESENT TEST 

017436 6S:  #URNNEND OF CODE FOR THE XOR TESTERSHERS 
5569 017436 105267 161440 SSVLAD: {NCB  $TSTNM “COUNT TEST NUMBERS 
5570 017442 O11667 161440 MOV (SP), SLPADR i SAVE SCOPE LOOP ADDRESS 
5571 01 067 161431 CLRB = SERFLG *2ERO THE ERROR FLAG 
6572 0174S2 016737 161424 177570 SOVER: MOV STSTNM, J#DISPLAY iDISPLAY TEST ORUMBER | 
5973 O17H60 016716 161422 Mov SLPADR, (SP) s FUDGE RETURN ADDRESS | 
Bere } PTTPIPITITT ETT T TT TT TT TTT TTT TTT rT TT TT TTT 
5577 .SBTTL ERROR HANDLER ROUTINE | 
6579 ; #SWIS=1 HALT ON ERRO | 
5580 :#5W13=1 INHIBIT ERROR TYPEQUTS 
28 #G0 TO SERRTYP ON ERR 
3 


Bl zee 7 161411 is. INcB LG FLAG 
cess Bi are obi? BEG iM Bonet TET THe FLAG. GO TO ZERO 


161402 177570 TNM, J#OISPLAY ISPLAY TEST R AND ERROR FLAG 
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017556 


017674 
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005267 161404 INC SERTTL 
011667 161404 MOV (SP), SERRPC 
162767 000002 161376 SUB #2, SERRPC 
117767 161372 161366 MOVB aSERRPC SITEMB 
032737 O20000 177570 BIT W13, d4SWR 
001004 BNE 

004737 017560 JSR PC, J#SERRTYP 
104400 001153 TYPE SCRLF 

005737 177570 2S: TST SESUR 

100001 BPL 

000000 HALT 

oo0002 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


;INC THE ERROR COUNT 
;GET ADDRESS OF ERROR INSTRUCTION 


;STRIP_AND Ti THE ERROR ITEM CODE 
: SKIP aS IF SET 

:SKIP_ TYP 

:GO TO USER ERROR ROUTINE 


;HALT ON ERROR 
;SKIP IF CONTINUE 
;HALT_ON ERROR! 


3$: RTI 
55 JBI 


j ¥THIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 


;#ERROR IS TO BE REPORTED. IT 


M THE “ERROR TABLE” (SERRTB), 


THEN OBTAINS, FROM 
:¥AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
104400 001153 TYPE SCRLF 
010046 MOV RO, -(SP) 
005000 CLR R 
153700 001114 BISB aaSITEMB,RO 
001004 BNE 1$ 
016746 161314 MOV SERRPC, - (SP) 
104402 TYPOC 
000426 - BR 6$ 
0fS300 1S: DEC RO 
006300 ASL RO 
006300 ASL RO 
006300 ASL RO 
062700 001156 ADD #SERRTB, RO 
012067 O00004 MOV (RO)+, 2$ 
001404 BEQ 33 
104400 TYPE 
000000 2S: .WORD O 
104400 001153 TYPE SCRLF 
012067 000004 33: MOV tRO)+,4$ 
001404 BEQ $ 
104400 TYPE 
000000 4S: .WORD 0 
104400 001153 TYPE SCRLF 
011000 cs: MOV (RO), RO 
001004 BNE 
012600 6S: MOV (SP)+, RO 
104400 001153 TYPE SCRLF 
000207 . RTS pc 
013046 MOV 3(RO)+,-(SP) 


104402 TYPOC 


; “CARRIAGE RETURN” & “LINE FEED” 
‘PICKUP THE ITEM INDEX 


IF ITEM NUMBER Is ZERO, JUST 
“TYPE THE PC OF THE ERROR 
: SAVE SERRPC FOR TYPEOUT 
“ERROR ADDRESS 
GO TYPE--OCTAL ASCII(ALL DIGITS) 


:G UT 
srOJUST hs | INDEX _SO THAT IT WILL 
ORK FOR THE ERROR TABLE 


;FORM TABLE POINTER 
PICKUP "ERROR MESSAGE” POINTER 
PE NO POINTER 


; U 

; TYPE THE “ERROR MESSAGE” 
;"ERROR MESSAGE” POINTER GOES HERE 
;"CARRIAGE RETURN” & “LINE FEED” 
PICKUP “DATA HEADER” POINTER 
SKIP TYPEOUT IF O 

;T Ma THE “DATA HEADER” 

* HEADER” POINTER GOES HERE 
CARRIAGE RETURN” & “LINE FEED” 
; PICKUP var Ml POINTER 

:GO TYPE THE DATA 


? RESTORE 
:"CARRIAGE RETURN” & “LINE FEED” 
* RETURN 


;SAVE 3(RO)+ FOR TYPEOUT 
:GO TYPE--OCTAL ASCII(ALL DIGITS) 
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S641 017676 
sb42 017700 
S643 017702 
S644 017706 
56 017710 
S646 

S647 

5648 

5649 

5650 

5651 

S652 

5653 

S6S4 

5655 

S656 017714 
5657 017716 
5658 017724 
S659 017726 
S660 017730 
S661 017732 
S662 017734 
S663 017736 
S664 017740 
S66S 017742 
S666 017744 
S667 017746 
S668 017 
S669 01775e 
S670 017754 
5671 017756 
5672 017760 
5673 017762 
5674 017766 
S675 017770 
S676 01777e 
5677 017774 
5678 0000 
5679 0004 
5680 020006 
5681 020010 
S682 O2001e 
S683 0e0014 
S684 

5685 

S686 

5687 

S688 

5689 

5690 

5691 

5692 

S693 020016 
5694 020020 
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1S THERE ANOTHER NUMBER? 
i TYPE TWO(2) SPACES 
*TWO(2) SPACES 


Ser ererrr errr tr rr rr rrr 


;READ_ AN OCTAL NUMBER 
"LOW ORDER BITS ARE ON TOP OF THE STACK 
*HIGH ORDER BITS ARE IN SHIOCT 


; PROVIDE a FOR THE 


Re 
REA D AN ASCIZ LINE 
GET ADDRESS OF 1ST CHARACTER 
CLEAR DATA WORD 


;PICKUP THIS CHARACTER 
if ZERO GET OUT 


; 
3 #4 
;*8 


sarne THE ASCII JUNK 
ADD_IN THIS DIGIT 


700 
CLEAN TERTNATOR FROM STACK 
“SAVE THE RESULT 


;POP STACK INTO Re 
-POP STACK INTO R1 
; POP STACK INTO RO 


URN 
IGH ORDER BITS GO HERE 


sctuncpuenemnlartiatebtiintaes 


j #THIS ROUT WILL pies THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
¥AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
 xOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


905710 TST (RO) 
901770 BEQ 6$ 
104400 017710 TYPE 8S 
000771 BR 9§ 
020040 000 8S: “ASCIZ / / 
017714 VEN 
wrk READ AN OCTAL NUMBER FROM THE TTY 
: ¥CALL: 
: RDOCT 
i RETURN HERE 
011646 SRDOCT: MOV (SP) ,-(SP) 
016666 000004 oD000e MOV 4(SP},2(SP) 
010046 MOV RO, -(5P) 
010146 MOV R1,-(5P) 
010246 MOV Re, -(SP) 
104412 1S: RDLIN 
012600 MOV (SP)+,RO 
005001 CLR Rl 
oo0s00e2 CLR R2 
12046 2s: MOVB  (RO)+,-(SP) 
001412 BEQ 3$ 
006301 ASL Ri 
006102 ROL Re 
006301 ASL R1 
006102 ROL Re 
006301 ASL Ri 
0061 ROL Re 
042716 177770 BIC #107, (SP) 
062601 ADD (SP)+,R1 
000764 BR 2 
005726 3S: TST (SP)+ 
010166 oo0012 MOV R1, 12(SP) 
010267 oc0010 MOV Re: SHIOCT 
012602 MOV (SP)+,Re 
012601 MOV (SP)+/R1 
012600 MOV (SP)+5RO 
oo0002 RTI 
000000 aipoct .WORD O 
EBB HEHE HEHEHE 
ae TRAP DECODER 
:%GO TO THAT ROUTINE. 
010046 STRAP: MOV ~ (SP) 
O16600 oo0002 MOV BSP) RO 


;SAVE RO 
:GET TRAP ADDRESS 


OCTOBER 1976 
Pil 


0ZBM 


o20024 
020026 
020030 
020034 


020036 


020427 


020452 
020460 


020466 
020474 


O20542 


MACY11 27(663) 
TRAP DECODER 


005740 
111000 
016000 
000200 


ee ee ee oe et 


020036 


047522 


001124 
001226 


001226 
016570 
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020115 


020193 
040S2e 


001126 
000000 


000000 
000000 


TST 
MOVB 
MOV 
RTS 


Dle 


-(RO) 


( 


.SBTTL TRAP TABLE 


¥THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
-4BY THE “TRAP” INSTRUCTION. 


éTRPAD: 


OTe: 
DT3: 


CORMAX: © 
~ END 


ROUTINE 


FE te et a ht i i 
se pe pe fe fe he he he pe 


RO) RO 
STRPAD(RO) , RO 


SERRPC, TEMPY, 0 
SERRPC, XSTORE, O 


; BACKU 


: INDEX 
GO TO ROUTINE 


SERRPC, SGDDAT, SBDDAT, TEMP3, TEMP4, 0 


P BYe 
GET RIGHT thee OF TRAP 
TO TABLE 


; CALL=TYPE TRAP+0(104400) TTY TYPEOUT ROUTINE 
: CALL=TYPOC TRAP+2( 104402) TYPE OCTAL NUMBER (WITH LEADING 
;CALL=TYPOS TRAP+4( 104404) TYPE OCTAL NUMBER (NO LEADING ZE 
; CALL=TYPON TRAP +6 ( 104 TYPE _OCTAL NUMBER (AS PER LAST C 
; CALL=RDCHR TRAP+10( 104410) TTY TYPEIN CHARACTER ROUTIN 
CALL SRL TN Tet iat itera) TTY TYPEIN STRING ROUTINE 
; CALL=RDOCT TRAP+14( 104414) DY ster AN OCTAL NUMBER FROM TTY 

S><12>7ROM_ READ eae Conn Son ” 

2) (1g) WRITING > FAILED TO TRAP./ 

S><12>/UNEXP T WHILE READING ROM./ 

5><12>/FATAL TRAP, ROM PC ON STACK./ 

5><12>/PC SOFT ROM/ 

et aay One SS ADDRESS EXPECTED FOUND / 

5><12>/ADDRESS ADDRESS 

S><12>/PC OF PROGRAM / 

5><12>/TRAP ADDRESS’ 


Ele 
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OZBMDH.P11 CROSS REFERENCE TABLE 
ADDRES 015254 soose S023 SO42x S053* 51928 
ALLEND 012336 NESE 4BE4e 4e82% 4690% 4698% 4706e 4714* 4731% 4737" 4743* 4749" 4755* 47614 
4767% 4773% 48008 S063 

BITO = OO000i 4318 4851 4ese 4950 S098 S146 5176 
BITO0 = 00000! urie 431 
BITOl = O0000¢ yooe 430 
BITO2 = OO0004 4198 = 429 
BITO3 = 000010 418% 428 
BITOY = 000020 4178 = 427 
BITOS = OOOO4O 41b8 426 
BITO6 = OO0100 4iS# 425 
BITO7 = 000200 ul4e = -4e4 
BITO08 = OO04 4138 © 423 
BITO9 = 001000 ylze = 422 
BIT1 = 000002 4308 
BITIO = O02000 4118 
BIT11 = OO4000 ul0# 4B4O 4877 S137 5172 
BITl2 = 010000 4098 
BIT13 = 020000 4088 
BIT14 = O4O000 4078 " 
BITIS = 100000 yobs S342 
BIT2 = OOO004 4298 
BIT3 = OOO010 4oBe 
BITY = 000020 4o7 8 
BITS = OOOO4O 46s : 
BIT& = 000100 4o58 
BIT7 = 000200 uous 
BIT8 = OOO400 4238 
BIT9 = 001000 4ooe 
BM.ERR 013235 4779-48998 
BM873xX 013160 4724 «48998 

TVEC= 000014 4388 

011676 4639 «47218 

CORMAX Oe0S42 , 57238 ©6$724 
DEAD 014670 S0s2x 5090 5106* 51098 
DH.2 013672 4912 49878 
OH.2A O14066 4954 «49878 | 
DH.2B 013754 4913-4955. «49878 «=6S06S5)~—s S104 
DHi 020254 509 57168 
DH2 020353 516 S29. S7 168 
DH3 020405 523. s«S7 16a 
DISPLA= 177570 3638 5572% sSS8b* 
OT1 020452 510 57178 
oT2 020466 517 530 57208 
OT3 020474 Soy s«S7218 
EMTVEC= 000030 G4le 46e3% 4624* 
EMI 020054 508 «57168 
EM 020116 515 57168 
EMS 020154 S22s«S7 168 

m4 14 Se8 Oss S7 168 
END.YA 001776 7408 4656 4737 
END.YB 002776 lllee 4664 = 4743 
END.YC 003776 15898 4682 4749 


END. YD 004776 22228 «64690 89-4755 


Fle 
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DZBMDH.P11 CROSS REFERENCE TABLE 
END.YF 005776 3e55# 4698 4761 
END.YG 006776 38298 4706 4767 
END.YH 007776 45998 = =4714 4773 
a 91077 46108 44802 
END.Y. 010376 46088 4731 
EOP 01657e 4894 5188 07 53534 
ERRVEC= 00 4348 S560 SS61# 5563%  SSb6# 
EXTEND Qle34e 480e8 5035 106 
EXTMAP 012340 48018 4856 $1 5151 
FLAGY 016052 4636% 5209 S2il# 53148 
GNS = ¥¥##4% UJ 346 5709 5710 $711 $712 $713 5714 $715 
ICOQUNT 001220 So4e 4820% 489e% S118* 5186% Se08* Ses 
INITFG Q12344 4628% 4721 4723% 48038 
last DIS186 ygoer uBuS. Wea. we8SS® 48978 4908% 4909*% 4944 Sleet Sidi 5148 5150% 
LASTA 012346 4657% 4665* 4683 4691% 4699% 4707% 4715* 4732% 4738% Y4744e 4750% 4756% 4762 
4768% 4774% 4804s 4825 4887 4908 S122 5181 
LOC] 01604e S213 Ses5 5265 5267 5289 $299 5310% 
LOCe 016044 53118 
LOC3 016046 53les8 
LOCY 016050 53138 
LOGIC O16640 53658 
LSTERR 001216 S338 4631% Se06* 5319%  5353% 
MACTY 016070 S224 53158 
MADD! 016103 Sees 53158 
016137 $239 53158 
MAP. YA 00 SS68 4645 4655 4736 
-YB Q0e000 745¢ 4661 4663 4742 
MAP. YC 003000 11148 4669 4673 4681 4748 
MAP.YD 004000 158S# 4687 4589 4754 
MAP 005000 e2eSe 4695 4697 4760 
MAP.YG 005000 32648 4703 4705 4766 
M 007000 38338 4711 4713 4772 
MAP.YX 010400 46098 4801 
MAP.Y. 010000 46078 4730 4918 4934 
may ti 6 OB 
MCRLF  O16414 492e 4961 5024 5038 5070 53178 
MERRPC O16654 $3718 
MFAIL 016340 $3178 5336 
MLF 016417 53178 
MSG3 016174 4781 53178 
ee fies 6 Bt 
MSPACE 016405 4926 4939 4965 4973 5029 5075 5080 5088 $217 $221 S235 S24e 53178 
-DOL 016376 53178 
M.END 016313 $3178 5354 
M.QM 016400 4797 5020 5044 53178 
NMATCH 012450 4719 4808s 
OROM 012350 4641 4805 
NO TRE Bieese Weel 4807" $117 Sel4 S232 5256 5261 53408 
Py Ro mets zoe 4894* S1BB* 5$307# 5365* 5369% S4O9* S4lb* S4el* S593 S637# 
= & 


OCTOBER 1976 


DZBMDH.P11 
PIRQVE= 000240 
PRG.NO 016530 
G.: Oleb 
PRG1 01eS6S 
RG2 013312 
PRG3 0142 
PRG4Y 015256 
= 1777 
WwW = 17777 
PWRYEC= 000024 
PWR.UP 016472 
CHR = 10441 
RDLIN = teit 


RDOCT = 1044 

RESTRT o1i000 
RESVEC= Roueae 
RUN.3 014706 
RUN3 014672 
RO =%000000 


Rl =7000001 
Re =~000002 
R3 =~000003 
RY =%000004 
RS =%000005 
RE =“00000€ 
R7 =%000007 
SAYR 001230 
SAYRL 001232 
SAYR 001234 
SAYRS 001236 

P =%000006 


MACY11 27(663) 
CROSS REFERENCE TABLE 
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4906% 


4685 
4986 


S252 
5337% 


S003% 
4693 


5308 
S347 


5661 


S20S* 
4701 


5360 


57148 


S497# 


5338 
4709 


53398 
4717 


5348 
4787 


5358 
48198 


4895 


5358 


48634 


5 
5538% 


OCTOBER 1976 


DZBMDH.P11 
SPACE3 016410 
SRV.A O14Y446 
SRV.D 014344 
SRV.L 014460 
SRV.R 014672 
STACK = 001100 
START G1110e 
STKLMT= 177774 
SWR = 177570 
SWO = 000001 
SwOoO = 000001 
SWO1 = 000002 
SWO2 = 000004 
SWO3 = 000010 
SWO4 = 000020 
= 000040 
SWwO& = 000100 
SWO7 = 000200 
SWwOS = 000400 
SWwOS = 001000 
SW1 = 000002 
SWiO0 = 002000 
SW11 = 004000 
SWle = 010000 
SW13 = 020000 
SW14 = 040000 
SW1S = 100000 
SWe = 000004 
SW3 = 000010 
SW4Y = 000020 
SWS = OO00040 
SW6 = 000100 
SW7 = 000200 
Sw8 = 000400 
SW2 == 001000 
TABLE 012334 
TAG.A 015524 


TBITVE= 000014 
TEMPS 001224 


001226 
TEMPS 001222 
TKYVEC = 000060 
TPYEC = Q00064 
000034 
000014 
= 104400 


MACY11 27(663) 


CROSS REFERENCE TABLE . 
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5563 
S6S9* 


4630 


4840 


S565 
S650# 


4876 


4851 


5569 
4627 


5587 
5551 


4781 


SS66 
S662 


5171 


4877 


5551 


5599 
5569 


4797 


$207 


4882 


S567 


5571 


4805 


o573* 
S6/3* 


5230 


4950 


5569 


5575 


49lé 


5588 
S674 


5260 


5098 


5571 


4913 


5609* 
5676 


$332 


5137 


5575 


4730% 
4934 


4970% 


4959# 
51328 


4922 


S614% 
5677# 


S346 


S146 


5581 


47364 
5004 


S0&8* 


4956 
5134 


4926 


5635 
5679 


5172 


5598 


4742 
5062 


$072 


497 1% 
5169# 


4939 


S639% 
5680 


5176 


5599 


47494 
Slel 


5083% 


4975 
S233* 


4954 


cesses 
S681 


SSSS# 


47S54% 


5133% 
5023 
5236 


4955 


OCTOBER 


1976 


DZBMDH.P11 


4 + 
< < 
oo UD 
o oO 
zo 

uno 


g = 
$SVLAD 


104402 
104406 


000 
177777 
017436 


MACY11 27(663) 
CROSS REFERENCE TABLE 


SSE98 


4623 


4625 
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4700% 4708 4716% 4776% 
50S4 5108 


Se74e 5291% 5301* 5717 


5608 5627 S632 5636 
s584* 5599 


5599 5614 5717 5720 


5717 


Si2e0* 5158% SS70*% 5573 


S519 5545s 


4627 


§355 


$721 


5575 


$3708 


OCTOBER 1976 


DZBMDH.P11 
$SWR = 160000 
$TKB 001140 
$TKS 001136 
STN = 000001 
TPB 001144 
STPFLG 001151 
TPS 001142 
STRAP O20016 
TRP = QOO016 
STRPAD O20036 
TSTNM 001102 
STTYIN 017134 
STYPBN= ¥¥x*4% 


= Oe0S4e 


-PFAIL Ol64e2e2 


MACY11 27(663) 
CROSS REFERENCE TABLE 


SSe 


5538 
5591 


4627 


$595 


S434 


57128 


$572 
S469# 
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5550 
5598 


57138 
5575 


57148 
5586 


5555 5567 5569 
$7158 57168 

$599 

4598 488 SSS# 
53158 53178 5359 


5571 


4607 
537 


34 


5575 


4608% 
S422 


5579 


46098 
5431 


$580 


46108 
S4E9% 


Kle 
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” DZBMDH. Pil CROSS REFERENCE TABLE 
COMMEN 18 446% 
ENDCOM 1s 4468 
ERROR 356% 4839 4875 5136 5170 5271 5278 $295 5306 S345 5349 
ESCAPE 18 4468 
ULT ls 446% 
NEWTST 1% 446% 
POP 1s 446% 5679 
SH 18 446% 5658 


PU 
SCOPE 3578 4847 4889 5143 5183 
SETTRA S700% 5710 $711 $712 5713 $714 §715 


446% 488 5375 S422 S439 5470 SS46 5575 5599 5647 5684 


TYPBIN 1 4468 
TYPDEC le 446% 
NUM 1 446% 

TYPOCS le 44GB ¥ 

TYPOCT le 446% S614 5638 
TYPTXT 1% 4468 
SHOW SS4# 4728 4734 4740 4746 4752 4758 4764 4770 
SROMTY SS4a 4645 4661 4669 4687 4595 4703 4711 
SSCMRE 4468 
SSCMTM 446% 

SCA ls 446% 

STNEWT le Hee 
SSSET 57008 $710 5711 571le 5713 S714 S715 
SSSKIP ls 446% 

. EQUAT ls 337% 351 

. HEADE ls 337% S42 

-KT11 le 

-RDLIN 338% 

. SETUP 1 337% 4615 

. SWRHI ls 337% 

. SWRLO 337% 

- SCATC le 337% 3393 

. SCMTA 1s 337% 446 

. $0B2D ls 

- $0B20 le 

-SOIV 1 

. SEOP ls S374s 

. SERRO le 338% 5575 

. SERRT ls 338% 5599 

. SMULT le 

. SPOWE 1* 5S3748 

. SRAND ls 

. SRODE ls 

SROOC le 338% S647 

S$READ le S3748 See 

SSAVE ls 

$SB20 ls 

$5826 ls 


Lie 
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DZBMDH.P11 CROSS REFERENCE TABLE 
SCOP 1s 338%  SS46 
$SIZE 1s 
SSUPR 1% 
STRAP ls 3378 S684 
STYPB 18 
STYPD lt 
$TYPE le $3748 5375 
STYPO le 53748 5470 


OCTOBER 1976 
DZBMDH.P11 


Pe GD 
MHHOO4HUUINO 4 


S 


opp prams 


4882 


4950 


‘ 


5098 
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CROSS REFERENCE TABLE 


5674 


4888 
5179 


$137 


M12 


ya4s 
5182 


S146 


4951 
5270 


5172 


4980 
5277 


5176 


5011 
5294 


S342 


5014 
5305 


$591 


5019 
5343 


5093 
5357 


5099 
$362 


OCTOBER 1976 


OZBMDH.P11 
5130 

5208 

5241 

5272 

5302 

S406 

5517 

5609 

5679 

MOVB 5403 
S665 

NEG 5S06 
NOP 4643 
RESET 5363 
ROL 5249 
RTI 5350 
RTS 5369 
SUB 5589 
TRAP 5700 
TST 4637 
5100 

5695 

STB 5397 
ASCII 4e5 
ASCIZ 487 
“BLKB S469 
.BLKW 4607 
"BYTE 463 
S468 

ENABL 1 
END 5724 
-ENDC 351 
4627 

Susy 

5588 

5712 

EQUIY 356 
422 

.EVEN 4808 
LIF 346 
4647 

5470 

5598 

5715 

IFF 354 
5567 

IFT 5569 
-IFTF 5569 
LIF 346 
. $571 
IPP 4616 
LIST i 
5709 

MACRO i 


MACY11 27(663) 
CROSS REFERENCE TABLE 
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5672 


5034 
5562 


5084 
5641 


5091 
5676 


OCTOBER 1976 
DZBMDH.P11 CROSS REFERENCE TABLE 


-MCALL 337 338 446 5374 
-NLIST 1 337 346 446 


5709 5710 5711 S7le 
- PAGE 446 488 742 1114 
2172 2225 3264 3833 
REM 4 2026 2076 
-REPT 346 
.SBTTL 337 340 347 382 
5701 
. TITLE S42 


. WORD 346 457 462 465 


ERRORS DETECTED: 0O 


*, DZ2BMDH. SEG/SOL/CRF/NL: TOC=DSKZ:DZBMDH. 
RUN-TIME: l2 18 1 SECONDS 
CORE USED: 20K 


485 SS 
$713 5714 
1585 1636 
4611 859 

448 490 

466 467 


SML,DZBMOH.P11 
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4899 
1842 


5472 


473 


4987 
1912 


5548 


474 


5315 
1966 


5577 


475 


$317 
2019 


5601 


476 


5439 
2073 


5649 


S626 


5700 
2120 


— 5686 


5631 


C13 | 


Spooler runtia cor Re, KES 50€ dg, igk writes, 157 page 
_— — =. =e ‘aa 
Dodo can uuoo a... onopoposod doob ono onoeNaNcNodagaba soso oa ooo o008 1 


: srrtrtrtrtrtrtrtrtrt 
DOOD0000 11131 [emer omer eT HMMS 55955556! ®55656I 
2 


noocococoecocoobbooboooooooouoooooooooooooooooooooOoOA fit Hoooogcooooo0n 5 500 DOOU0000C 0000 DO000 NOOUOOL 111111 


00000000111111111 12 eee Pe PPaaaaaaaaaSNNMHNNNUUNSSSSS5SS5S66660—660677777777778888888888999999999900000000 11 





10 
63.P1176 
107 


455 OO00046 


617 OO1466 
72S 001740 
75 


See 
1075 002664 


1177 003062 
1231 003212 
1285 003334 


1447 003472 
1555 003744 
1645 04004 


1755 004226 
00 

1851 004350 

1905 004520 


ele9 O004534 


.. Bl 

/MACYLI 2 ...C1 
.. D1 

..EL 

» Fl 

» Gh 

. HI 

bo Ae 

son 

. KI 

iol 

C1640 =. ML 
» NI 

.B2 

Ce 

060011 De 
-E2 

oo0024 Fe 
“ACTUAL ...G2 
113737; ..-He 
000200 ; ...Je 
012700 ; ...Je 
O00005 ; ...Ke 
-BYTE ° ...Le 
100376 ; ...Me 
3173000’ .:.Ne 
100000 ...B3 
177560 «...C3 
010742 |: :03 
..£3 

..F3 

012761 63 
“H3 

000207 2 :.13 
ae 

000001 ; :::K3 
; laa 
ak 

000340 ; :::N3 
; .. BY 
632711 ; ...C4 
030500 ; ...04 
.-E4 

H .-F4 
.-G4 

» HY 

010037 ; ::.14 
~-J4 

KY 

. LY 

. M4 

. NY 


00S006 
005102 


005212 
005312 


005426 


005674 
005724 
005776 


006076 


006260 
006420 
006506 


006672 


007004 
007064 


177570 


000020 


012711 
100316 


000012 


010045 
005061 
000000 


001763 
005205 
042700 
005000 
000000 
000009 


010145 


013700 
173304 


4179 007240 


4279 007350 


4370 007444 


4486 007634 


4620 011014 
4674 011374 
4728 011722 
4782 Ol2e46 
4818 

4868 013032 
4909 013334 
4963 013602 
4997 

5051 


5105 014650 
$163 015130 
S256 015534 


$328 016464 
S434 017002 
5S42 017365 
5596 017552 


$TRP_ = QO0016 
SETTRA 57008 
BIT 4840 
MOVB 5403 


001775 
177776 


004000 


01770 


177762 


012706 
001004 
022702 
10441e 
005720 
062767 
104402 


016700 
005720 


012737 
000000 


012637 
105777 

000 
100001 


5710 


4851 
5420 


. . _ oO . oO a 2 2 . . . s . e . . . . . . . . o . 3 . . s ee . . 7 a . . . . . . 


— 8 bb bb bb 9 bp bb bb bb bb pe _— 


bb 0 bs bb pp pe pp pe 


MUPUMUPUMUTUNUPUPUPUN TD er ee ee eee eee OOOO OOOO OOO0OOO 


. TITLE S42 340 ese 
*##END#* USER DAVIES, TOM ... 


8 
C 


1 
1 


3 
3 


